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Seventh Edition (September 1976) 


This is a major revision of, and obsoletes, SC21-7504-5 and Technical Newsletter 
SN21-5338. Changes to text and illustrations are indicated by a vertical line to the 
left of the change. New or extensively revised illustrations are denoted by a @ at the 
left of the figure caption. 


This edition applies to the System/3 program versions listed below and to all subsequent 
versions and modification levels until otherwise indicated in new editions or technical 
newsletters. 


System/3 Version Modification — Program Number 
Model 10 13 00 5702-RG1 
Model 12 2 00 5705-RG1 
Model 15 5 00 5704-RG1 
Model 15 1 00 5704-RG2 


Requests for copies of IBM publications should be made to your IBM representative or 
to the IBM branch office serving your locality. 


A form for reader’s comments is provided at the back of this publication. If the form 


has been removed, comments may be addressed to IBM Corporation, Publications, 
Department 245, Rochester, Minnesota 55901. 


©Copyright International Business Machines Corporation 1969, 1970, 1971, 1972, 1973, 1975, 1976 


This publication is intended as a reference manual. It is . 
organized so that all the information necessary to write 
RPG II programs for the IBM System/3 Model 10 Disk 
System, IBM System/3 Model 12, and IBM System/3 
Model 15 can be easily found. 


System/3 Model 8 


The System/3 Model 8 is supported by System/3 Model 10 
Disk System Control Programming and Program Products. 
The facilities described in this publication for the Model 10 
are also applicable to the Model 8, although the Model 8 is 
not referenced. It should be noted that not all devices and 
features which are available on the Model 10 are available on 
the Model 8. Therefore, Model 8 users should be familiar 
with the contents of JBM System/3 Model 8 Introduction, 
GC21-5114. 


System/3 Models 12 and 15 Only 


The IBM 3340 Direct Access Storage Facility attaches to 
System/3 Model 12 and to System/3 Models 15B, 15C, 

and 15D. Also, the IBM 3344 Direct Access Storage 
attaches to System/3 Model 15D. Certain areas on the 
3340 and 3344 disks are treated as 5444 disks. These 
areas, known as 5444 simulation areas (or simulation areas), 
are used for the program libraries and can also be used for 
data files. The remainder of the disk space, known as main 
data area, can be used only for data files. 


References in this manual to 5444, 5445, and 3340 are to 
be interpreted according to the disk storage device(s) 
attached to the system. The following table should be 
used to determine the meaning of the reference: 
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Preface 


For further information, see the appropriate publications 
listed under Related Publications. 


All references to the System/3 Model 15 in this publication 
apply to System/3 Models 15A, 15B, 15C, and 15D unless 
otherwise specified. 


IBM System/3 5448 Disk Storage Drive 


The IBM System/3 5448 Disk Storage Drive on System/3 
Models 8 and 10 uses the same program product support 
as the IBM 5445 Disk Storage. However, a separate system 
control program feature is required for the 5448. In 
general, references to 5445 in this manual also apply to 
5448. For specific information about 5448 operating 
characteristics and programming support, see JBM 
System/3 5448 Disk Storage Drive Program Reference 
Manual, GC21-5168. 
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HOW TO USE THIS MANUAL 


Chapters 


This publication has nine chapters and several appendixes. Chapter 1 is an introduction. 
Chapter 2 describes RPG II coding entries common to all specification types. Chapters 
3-9 describe the seven types of RPG II specifications in the order they are read by the 
RPG II compiler. The appendixes contain additional information useful in RPG II pro- 


gramming, including convenient reference tables and performance improvement tips. 
Column Descriptions 


Specifications are described column-by-column as a programmer would write them. The 
following information is included for each column description: 


1. List of possible entries. 
2. General discussion of use of column and considerations for all possible entries. 


3. Specific discussion of each entry. 


4. Charts and examples. 


Special Topics 


Some RPG II features require multiple, interrelated specifications or are especially 
important and'merit expanded discussion. Examples are multifile processing, tables 
and arrays, and operation codes. These features are discussed near the specifications 
which are key to their use. 
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FUNCTION OF RPG Il 


RPG II consists of a symbolic programming language and a 
compiler program. The RPG II symbolic language is a 
highly flexible, problem solving language. It allows pro- 
gramming solutions to a wide variety of data processing 
problems. The compiler program translates the symbolic 
language program (source program) into a machine language 
program (object program). The object program is used by 
System/3 to process information according to the program- 
mer’s specifications. 


Basically, the program undergoes two processes: 


1. Compilation. The source program is translated into 
an object program. 


2. Execution. The object program is used to process 
data. 


Chapter 1. Introduction 


During compilation, the program specifications you wrote 
are used to produce machine language instructions. Storage 
areas are automatically assigned, constants or other refer- 
ence factors are included, and program routines for check- 
ing, for input/output operations, and for other functions 
are produced. 


During execution, the machine language instructions are 


combined with the input data files and both are processed 
through the system to do the job. 
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USING RPG II 


- Doing a job using RPG II consists of the general operations 
illustrated in Figure 1 and described as follows. (The 
circled numbers in Figure 1 refer to the numbers in the 
following text.) 


1, | The programmer analyzes the job requirements to 
determine the format of the input files and the lay- 
out of the finished report. For example, he deter- 
mines what fields in the input records are to be used, 
what calculations are to take place, where the data is 
to be located in the output records, and how many 
and what kind of totals must be accumulated. 


2. After the programmer has analyzed the requirements 
of the job, he provides the RPG II program with infor- 
mation about these requirements. 

a. He furnishes special information about his pro- 
gram and describes his system by making entries 


on the sheet containing Control Card specifications. 


b. He describes all files used by the object program 
_ (input files, output files, table files, etc.) by 
making entries on the File Description Specifica- 
tions Sheet. 

c. If the programmer uses record address files, tables, 
or arrays in his object program, he furnishes infor- 
mation about them through entries on the Exten- 
sion Specifications Sheet. 

d. He provides certain information about the format 
of printed reports on the Line Counter Specifica- 
tions Sheet. 

e. He describes his input files by making entries on 
the Input Specifications Sheet. 

f. He states what processing is to be done (add, sub- 
tract, multiply, divide, etc.) by means of entries 
on a Calculation Specifications Sheet. 

g. He defines the layout of the desired report (print 
positions, carriage control, etc.) by making entries 
on the Output-Format Specifications Sheet. 


3. After the specifications have been written on the 
appropriate forms, the data on the forms is recorded 


in punched cards, entered into the system through the 


keyboard or the 3741. 


4. These specifications (called the source program) are 
preceded by the RPG II control card. The source 
program and the control card are processed by the 
RPG II compiler under control of the Disk System. 
At the end of this processing run (referred to as the 
compilation run), the object program is stored in an 
object library, punched in cards, or written ona | 
diskette. This program contains all the machine in- 
structions required to perform the desired job. 


5. | When the object program is to be executed, it is read 
into main storage from cards, disk, or diskette. 


6. The input files are read by the system under control 
of the object program. This is known as the object 
run. 


DEFINITIONS OF TERMS 


EBCDIC (Extended Binary-Code-Decimal Interchange 
Code) Notation: The 256-character machine code used in 
the IBM System/3 Disk System. See Appendix D for a 
table of hexadecimal equivalents of the EBCDIC characters. 


Alphabetic Characters: The 26 alphabetic EBCDIC char- 
acters and the three EBCDIC characters #, $, and @. 


Numeric Characters: The EBCDIC characters 0-9. 


Special Characters: The 217 EBCDIC characters’ not 
defined as alphabetic or numeric. 


Alphameric Characters: Any of the 256 EBCDIC characters, 


Alphameric Fields: All fields for which a decimal-positions 
specification has not been made in the appropriate column 
of the specifications forms. Alphameric fields can contain 
alphabetic, numeric, or special characters. 


Numeric Fields: All fields having a decimal-positions speci- 
fication in the appropriate columns of the specifications 
forms. | 


Valid RPG II Names: The following rules apply to names 
used in RPG II programs: 


@ RPGII filenames can be from 1-8 characters long; 
RPG II field names can be from 1-6 characters long. 


@ The first character of either a filename or a field name 
must be alphabetic (see preceding definition of alpha- 
betic characters). The remaining characters can be any 
combination of alphabetic and numeric characters 
(special characters are not allowed). 


© Blanks cannot appear between characters in the name. 
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GENERAL RPG II OBJECT PROGRAM LOGIC 


Every object program generated by the RPG II Compiler 
uses the same general program logic (Figure 2). The term. 
program logic refers to all the RPG II functions en 
for each data record read. 


Knowledge of RPG II logic is helpful when writing RPG II 
programs. For relatively simple jobs involving a single input 
file, an understanding of the general logic presented here is 
sufficient. Complex jobs require a more thorough under- 
standing of the logic. Appendix C: Detailed RPG II Object 
Program Logic contains a detailed flowchart and explana- 
tion of the program logic. 


Every program cycle involves three basic logic steps: 
1. Reading information (input). 

2. Performing calculations (processing). 

3. Recording results (output). 


Within a program cycle, these basic logic steps can be 
divided into numerous substeps in which the input deter- 
mines when calculation and output operations occur. 
According to RPG II program logic, calculation and output 
operations (including exception output) are performed at 
two different times in a cycle: total time and detail time. 


Total Operations 


Total calculations are specified by placing an L indicator in 
columns 7-8 of the Calculation Sheet. Total output opera- 
tions are specified by placing a T in column 15 of the Out- 
put Sheet. The appropriate control level indicator should 
be entered in columns 23-31 of the Output Sheet to dis- 
tinguish between output operations performed for differ- 
ent control levels. 


Total calculation and total output operations are normally 
performed on data accumulated for a group of related 
records which form a control group. Such operations are 
normally done only after a control break has occurred. A 
control break occurs when the control field of the record 
just read is different from the control field of the previous 
-record, Whenever a record is read, a check is made to deter- 
mine if information in a control field (when one has been 
specified) is different from the control field information on 
the previous record. 


A change in the control field information indicates that all 
records from a particular control group have been read and 
a new group is starting. When all records from a group 


have been read (shown by control level indicators being 


turned on), calculation and output operations are done — 
using information accumulated from all records in that 
group. Information on the record that started the new con- 
trol group is not used in these total operations; only infor- 


_ mation from records in the previous control group is used. 


Detail Operations 


Those calculations not conditioned by L indicators in 
columns 7-8 are detail calculations, Detail output opera- 
tions are specified by placing an H or D in column 15 of 

the Output Sheet.' Detail calculation and detail output oper- 
ations are normally performed for individual data records. 
These operations are done for each record, provided all 
conditioning indicators are satisfied. When any one of the 
following conditions are met, detail time calculation and 
output operations are done: | 


1. ~All total calculation and total output operations 
have been completed. 


2, No total operations are to be done (the information 
in the control field has not changed). 


Total operations are performed before detail operations. 
This prevents data from the first record in a new control 
group from being accumulated in the totals for the previ- 
ous group. Total operations are performed only on data 
accumulated from previous records. Detail operations on 
the record that caused the control break are done after 
total operations are finished. 


General Program Cycle 


Figure 2 shows specific steps in the general flow of RPG II 
program logic. A program cycle begins with step 1 and con- 
tinues through step 11, then begins again. Steps 7 and 8 
are known as total time; steps 11 and 1 are known as detail 


- time. 


The first and last program cycles of a job are somewhat 
different from the normal cycle. Before the first record is — 
read, lines conditioned by the 1P indicator are written. Any 
heading or detail lines having no conditioning or having all 
negative conditioning indicators are also written at this 
time. In addition, total operations are bypassed for the 

first record even though a control break may occur. 


When the last record to be processed is read, the last record 
(LR) indicator turns on. This automatically causes all con- 
trol level indicators to turn on also. Total operations are 
performed and the job ends; only steps 3-8 of the program 
cycle are done. 


Before the first record is read, the program writes all 

heading or detail records (those having an H or D in column 
15 of the. Output Sheet). This is done only if all conditioning 
indicators are satisfied. 


All record identifying indicators are turned off. 


A record is read and identified by the object program. The 
appropriate record identifying indicator is turned on. 


The record just read is examined to determine whether or 
not a control break has occurred. A control-break occurs 
when the control field of the record just read is different 
from the control field of the previous record. 


If a control break occurs, the proper contro! level indicators 
turn on except LO which is always on. 


A check is made to determine if this is the first cycle. 
If it is, total calculations and total output (steps 7 and 
8) are bypassed. 


Total calculation operations (those conditioned by control 
level indicators in columns 7-8 of the Calculation Sheet) are 
performed if the control level condition is satisfied. 


Total records (those having a T in column 15 of the 
Output-Format Specifications Sheet) are written or punched 
out according to output specifications. 


If matching fields have been specified, these fields are checked 
for a matching condition. The matching record (MR) 
indicator is set accordingly. 


Data from the record read at the beginning of the cycle 
(step 3) is now made available for use in detail calculation 
and output operations. 


All detail calculation operations (those not conditioned 

by level indicators in columns 7-8 of the Calculation Sheet) 
are performed on the data from the record read at the 
beginning of the cycle. Chaining and exception output can 
also be performed. 


Figure 2. General Object Program Cycle 
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SYSTEM CONFIGURATION 


For minimum system configurations and optional device 
support, see the appropriate system generation reference 
manual listed under Related Publications in the Preface. 


RPG I! SPECIFICATION SHEETS 


The RPG II specification sheets are used when coding an 
RPG II program. The format and column headings on each 
of these sheets guide you in making the appropriate entries. 


The sheets are designed so that one card is punched from 
each specification line. There are six specification sheets: 


1. 


Control Card and File Description. This sheet con- 
tains two types of specifications: 


a. Control card specifications provide information to 
the RPG II compiler. 

b. File description specifications provide information 
about all files used in the program. 


Extension and Line Counter. This sheet contains 
two types of specifications: 


a. Extension specifications provide information about 
tables, arrays, and record address files. 
b. Line counter specifications provide information 
‘about the number of lines to be printed on the 
forms that are used. 


Telecommunications. This sheet is used to enter the 
information necessary to establish and maintain the 
BSC communications link. Each BSCA file defined 
on the File Description Sheet must have a corres- 
ponding Telecommunications Sheet entry. 


Input. This sheet is used to describe the records in 
an input file. 


Calculation. This sheet is used to describe all opera- 
tions that are to be performed on the data. 


Output. This sheet is used to specify the arrangement 
and type of data that will be written or punched on 


printed reports or cards, or stored on disk. 


a 


Information on specification sheets is recorded in punched 
cards to form a source program. The arrangement of the 
cards is shown in Figure 3. 
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Figure 3. Record Arrangement in the RPG II Source Deck 
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Chapter 2. Common Entries 


This chapter defines entries common to all RPG II coding 
sheets. Each coding sheet contains the following entries: 


1. Columns 1-2 (page). 
2. Columns 3-5 (line). 
3. Column 6 (form type). 
4. Column 7 (comments). 


5. Columns 75-80 (program identification). 


COLUMNS 1-2 (Page) 


Entry Explanation 

01-99 - Page number 

/*, /&, or Indicates end of source specifications 
bi data. /. is used on Model 15 only. 
ad Followed by a blank in column 3 is a 


delimiter for table or array, data, alter- 
nate collating sequence specifications, 
and file translation specifications. 


Columns 1-2 in the upper right corner of each sheet are for 
numbering the specification sheets used in a job. You can 
use more than one of each sheet, but all sheets of the same 
type should be kept together. When all the specifications 
sheets are filled out, arrange them in the following order 
and number them in ascending sequence: 


1. Control Card and File Description 
2. Extension and Line Counter 


3. Telecommunications 


4. Input 
5. Calculation 


6. Output 


COLUMNS 3-5 (Line) 
Entry Explanation 
Any numbers Line numbers 


Columns 3-5 are used to number the lines on each sheet. 
Columns 3 and 4 contain preprinted line numbers so, in 
most cases, line numbering is already done for you. For 
instance, the Control Card and File Description Sheet con- 
tains line numbers for lines 01-10. The unnumbered lines 
below the preprinted numbers can be used for additional 
lines or to insert a line between two other completed lines 
(see Example). 


The control card specification line is always line O01. Any | 
other lines on the specification sheets can be skipped. The 
line numbers you use need not be consecutive, but should 
be in ascending order. 


Example 


Figure 4 shows the insertion of a line between two com- 
pleted lines. To show that a line belongs between line 02 
‘and line 03, a 5 is placed in column 5 (any number 1-9 can 
be used). Line 025 should be inserted between 02 and 03. 
All lines inserted between existing lines should be written 
after the last line with a printed line number. 


Note: After the source cards have been punched, cards 
from insert lines must be placed in proper sequence. 


COLUMN 6 (FORM TYPE) 


Entry Explanation 

H Header card (Control Card Specification 
Sheet). 

F File Description Specifications Sheet. 

E Extension Specifications Sheet. 

L Line Counter Specifications Sheet. 

T Telecommunications Specifications Sheet. 

I , Input Specifications Sheet. 

C Calculation Specifications Sheet. 

O Output Specifications Sheet. 


Column 6 contains a preprinted letter on all sheets. The 
letter identifies the type of specifications for each line. 


COLUMN 7 (COMMENTS) 
Entry Explanation 
sg Comment line 


You may want to write comments to help you understand 
or remember what is being done in a certain section of 
coding. RPG II allows an entire line to be used for these 
comments. The comment line is identified by placing an 
asterisk in column 7. Any characters in the character set 
may be used in a comment line. A card is punched from 
this line and the comments appear in the source program 
listing. 


Comments are not instructions to the RPG II program. 
They serve only as a means of documenting the program. 
A comment line cannot be written in the control card 
specifications line. 


COLUMNS 75-80 (PROGRAM IDENTIFICATION) -.~ 


Entry Explanation 

Valid Program identification (the first character 
RPG II must be alphabetic but cannot be #, $, or 
name @; the remaining characters must be alpha- 


meric with no imbedded blanks. Special 
characters cannot be used.) 


Blank RPGOBJ is assumed. 


Control Cards 


Columns 75-80 (at the top of the Control Card Sheet) are 
used to name your object program. This name is used in a 
directory that contains the location of your program on 
disk. The compiler places the first four characters (columns 
75-78) into positions 89-92 (or columns 73-76 if the object 
program is put on 80-column cards) of each record in your 
object program. Columns 75-80 of the control card must 
contain an entry when an object program is permanently 
cataloged on the object library (a Cin column 10 of the 
control card). If columns 75-80 are left blank, the compiler 
assumes the entry is RPGOBJ. The compiler (the overlay 
linkage editor on Model 15) uses columns 93-96 of each 
object program record for consecutive numbering of the 
records. The name should be unique. 


Note: DIR, ALL, and SYSTEM are reserved names and 
must not be used as the name of an object program. 


All Other Source Cards 


Columns 75-80 on all source program cards, except the 
control card, may contain any characters. These columns 
may use the program name in the control card, or the 
column may contain any other characters to identify a 
certain portion of the program. These entries are ignored 
by the compiler, but will appear in the source program 
listing. 


Common Entries 9 
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Figure 4. Insertion of Lines 
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Only one control card may be submitted for each program. 
It provides information about your program and your sys- 
tem to the RPG II compiler. If the control card is omitted, 
a blank control card is assumed. For coding the control 
card, one specification line is provided on the Control Card 
and File Description Sheet (Figure 5). 


COLUMNS 1-2 (PAGE) 


See Chapter 2. 
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Chapter 3. Control Card Specifications 


COLUMNS 3-5 (LINE) 


See Chapter 2, 


COLUMN 6 (FORM TYPE) 
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Figure 5. Control Card and File Description Sheet 
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COLUMN 10 (OBJECT OUTPUT) 


Entry 


t 


Explanation 
Blank Object program is written temporarily in 
the object library. The system halts only 
when severe errors are found. 

D Object program is written temporarily in 
the object library. The system halts for 
both warning errors and severe errors. The 
operator can continue the job after a halt © 
occurs for a warning error. 


C Object program is written permanently in 
the object library. 


P Object program is punched into cards or 
written on diskette. 


Note: An object program in punched cards _ 
cannot be run in level two under Dual Pro- 
gram Feature (Models 10 and 12 only). 


R Place non-link-edited object program in 
library as a permanent entry (Model 15 
only). 


T Place non-link-edited object program in 
library as a temporary entry (Model 15 
only). 


B Punch non-link-edited object program 
(Model 15 only). . 


Column 10 is used to indicate the output you want as a 
result of compiling the source program. The object 
program is written in the same object library in which the 
compiler resides, unless specified to another unit via OCL. 


You will usually want the object program written tempor- 


arily in the object library until you have tested your program. 


When a program is written permanently in the object library, 
it deletes all programs temporarily written in the object 
library. (Every object program written permanently in the 
object library must be assigned a valid program name in 
columns 75-80 of the Control Card Specifications Sheet.) 


A program identification (columns 75-80) is required when 
the object program is written permanently in the object 
library (C entry in column 10). 


No object program is produced when severe (terminal) 
errors are present in the source statements. 


12 


If NOHALT (with severity 2 on Model 15) is specified on 
your OCL for this job, no halts will be issued for either 
warning or terminal errors. When terminal errors are 
found, end-of-job occurs. 


On the Model 15, there are advantages when a non-link- 
edited object program is obtained and a link edit is per- 
formed using the Overlay Linkage Editor. See JBM Sys- 
tem/3 Overlay Lirikage Editor Reference Manual, GC21- 
7561, for a description of the Overlay Linkage Editor. 


When doing a separate link edit using the Overlay Linkage 
Editor you can: 


1. Control the start address of your RPG program. 

2. Control the overlay structure of your RPG program. 

3. | Make changes to assembler subroutines used in your 
RPG program without recompiling. Another link 
edit must be performed to include the changed sub- 


routine in the RPG program. 


A non-link-edited program may require less disk space in 
the object library. 


COLUMN 11 (LISTING OPTIONS) 


Explanation 


Entry 
Blank 1. The object program is produced 
(if no severe errors are found). 
2. The program listing is printed. 
B 1 The object program is produced 
(if no severe errors are found). 
2. The program listing is not printed. 
P 1 The object program is produced (if 


no severe errors are found). 

2. A partial program listing is printed, 
which includes the source program, 
information on indicator usage, and 
diagnostics. 


Column 11 provides for listing options at the time your 
source program is compiled. If any severe errors are found 
during compilation, the system halts after completing the 
listing (provided a listing is to be printed). 


The blank entry is the usual case, producing an object pro- 
gram (if no severe errors are found) and a source program 
listing. The RPG II listing consists of the source program 
listing, table array information, indicator usage informa- 
tion, the relative locations of fields and their attributes, 
unreferenced field names, diagnostics, a main storage usage 
map, and a statement defining the total number of library 
sectors required for the object program., The main storage 
usage map lists the identification, the start address, and the 
size of each uniquely identifiable segment of code in the 
object program, and defines the amount of main storage 
required for execution. The main storage map is printed 
only if the program is successfully compiled. 


The B entry means that no program listing is printed; 
however, an object program is produced. This entry can 
be used if you want to produce an object program for 
which you already have a listing. 


The P entry means that a partial listing is printed, which 
includes the source program, information concerning 
indicator usage, and diagnostics. This can be used if you 
don’t need a complete listing of the program. Excluded 
from this printout are table/array information, field 
information, a main storage usage map, and disk storage 
information. 


Note: For Models 10 and 12 only, the compiler forces 
logging of some error messages to the printer during com- 
pilation. The printer is allocated to the program level the 
compiler is executing in. Any programs executing con- 
currently in the other program level cannot use the printer 
for error logging. 


COLUMNS 12-14 (CORE SIZE TO EXECUTE) 


Column 12 

Entry Explanation 

Blank,O No additional 256-byte increments are 
needed. 

Q One additional 256-byte increment is 
needed. 

H Two additional 256-byte increments are 
needed (512 bytes). 

T Three additional 256-byte increments are 
needed (768 bytes). 


Column 12 may be used on Models 10 and 12 to specify 
additional 256-byte increments of storage. These incre- _ 
ments allow an extra 1/4K, 1/2K, or 3/4K/of storage to 
be available in addition to the storage specified in columns 
13-14. These additional increments are particularly useful 
when using the dual programming feature (Models 10 and 
12). 


Column 12 must be 0 or blank for Model 15. 
Example 
The following chart shows examples of the possible entries 


that can be made in columns 12-14 and the amount of stor- 
age that would be made available for that entry: 


Entry Ayailable Bytes 
004 4,096 
Q04 4,352 (4,096 + 256) 
H04 4,608 (4,096 + 512) 
T04 4,864 (4,096 + 768) 
005 5,120 
Columns 13-14 
Entry Explanation 
Blank The main storage required for object 
program execution is the same as 
that used to compile the program 
(maximum of 48K, Model 15). 
01-61 The main storage required for 
(Models 10 and 12) program execution (if different 
02-48 from main storage available for 
(5704-RG1) object program generation), 
02-56 
(5704-RG2) 


Use columns 13-14 to specify some multiple of 1K bytes 


(Models 10 and 12) or 2K bytes (Model 15) of storage 


(K = 1024). 


‘Columns 13-14 define the main storage required for program 


execution (not including main storage requirements for 
external buffers, 5704-RG2). The entry must end in 
column 14. 
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For Models 10 and 12 RPG II, the size of the object pro- 
gram will be less than, or equal to, the value specified in 
these columns. For both Model 10 and Model 15 RPG II, 
if these columns are blank, the size of the object program 
will be less than, or equal to, the storage size available for 
compilation. If the total program cannot be contained in 
the amount of main storage specified, RPG IJ automatically 
tries to create overlays. 


This entry can differ from the main storage available for 
object program generation because: (1) your program can 
be executed on a system other than the one that compiled 
it, or (2) you might be using the Dual‘Program Feature on 
the Models 10 and 12 (see JBM System/3 RPG II Addi- 
tional Topics Programmer’s Guide, GC21-7567). 


If the system used for program execution is different from 
that used for compilation,'subtract the amount of main 
storage occupied by the supervisor from the total main 
storage of the system used for execution (Models 10 and 
12 only). 


If you are using the Dual Program Feature on the Models 
10 and 12, subtract the amount of main storage allocated 
to the second object program and the supervisor from the 


total main storage of the system used for program execution. 


On Model 15, main storage for object code will be allocated 
in 2K increments. The compiler will diagnose any entry 
that is not a 2K multiple and round up to the next 2K. 


Whether or not an entry is made in these columns, the 

" supervisor size must be considered. Remember, for Models 
10 and 12, that the DPF supervisor is larger than the dedi- 
cated supervisor. In all cases, even if no entry is made in 
these columns, the maximum core available to load the 
programs is the total main storage of the system less the 
size of the supervisor. 
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Model 15 programs normally start at address X‘4000°. Pro- 
grams larger than 48K (Program Number 5704-RG2) start 
at a lower address. See the appropriate SCP reference — 
manual (5704-SC2) listed under Related Publications in the 
Preface for details. Data management and other library 
routines can be added to the generated object code on 
Model 15, thus allowing the total program to exceed 64K 
before overlays are created. 


If at any time during compilation the total program size 
(Models 10 and 12) or generated object code (Model 15) 
last address exceeds X‘FFFF’ (65,535 in decimal), the 
compilation ceases. A terminal halt occurs before an 
attempt is made by the compiler to generate overlays. 


When external buffers are specified (Program Number 
5704-RG2), the total storage required for execution is the 
size specified in columns 13-14, plus the size of external 
buffers rounded to a 2K multiple. (The overlay linkage 
editor shows the calculated partition size for execution of 
the program.) 


COLUMN 15 (DEBUG) 


Entry Explanation 
Blank DEBUG operation is not performed. 
1 DEBUG operation is performed. 


In order to perfotm a DEBUG operation: 


1. AJ must appear in column 15 when the source pro- 
gram is compiled. 


2. The DEBUG operation code must appear in calcula- 
tion specifications, 


See Operation Codes, DEBUG Operation in Chapter 8 for 
more information. 
COLUMNS 16-20 


Columns 16-20 are not used. 


COLUMN 21 (INVERTED PRINT) 


Entry Explanation 

Blank Domestic format. 

I World Trade format. 

J World Trade format (leading zero remains 
for zero balances). 

D United Kingdom format. 


Use column 21 to describe the format and punctuation 
used for numeric literals in the calculations specifications, 
the order of the system date (referenced by UDATE) field 
and edit codes used on output. 


Note: The input for UDATE must be in the format 
expected as output. For example, if D (United Kingdom 
format) is specified in column 21, the input format must 
be DD/MM/YY. 


Figure 6 shows inverted print specifications and resulting 
formats. 


Numeric Literal 
using 
Period/Comma as 
a Decimal Point 


inverted Print 
Option 


4123.57 
4123.57 
4123,57 


4123,57 


Figure 6. Inverted Print Specifications 


Edit Codes 


using 


a Period/Comma as 
a Decimal Point 
3,210.89 
3,210.89 
3.210,89 


3.210,89 





COLUMNS 22-25 


Columns 22-25 are not used. 


COLUMN 26 (ALTERNATE COLLATING SEQUENCE) 


Entry Explanation 
Blank Normal collating sequence is used. 
S Alternate collating sequence is used. 


Use column 26 only to alter the normal collating sequence 
for a job. Additional specifications are required, as 
described in the following discussion. 


UDATE 
Appears 
asa 
Slash/Period 


Zero Suppress 
to the Left/Right 
of the 
Decimal Point 
MM/DD/YY 
DD/MM/YY 
DD.MM.YY 


DD.MM.YY 
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Collating Sequence 


Every alphabetic, numeric, or special character holds a 
special position in relation to all other characters (see 
Figure 7 and Appendix D, Table D-5). This order is known 
as the collating sequence. System/3 uses a collating 
sequence based on the way characters are represented in the 
machine (see Character Structure under Columns 21-41 in 
Chapter 4). 


‘You can change this collating sequence if you wish. If you 
want characters to appear in a sequence other than the one 
used by System/3, or if you want two or more characters 
to have the same position in the sequence (this means they 
are considered equal), you must describe an alternate col- 
lating sequence. 


Note: An alternate collating sequence applies to matching 
fields, sequence checking, and alphameric compare opera- 
tions (COMP). It has no effect on control levels, numeric 
compares, look up, or sequence checking of tables or arrays. 


Defining an Alternate Collating Sequence 


To define an alternate collating sequence you must enter an 
S in column 26 of the Control Card Specifications Sheet. 


A table also must be entered which lists the changes you 
wish to make in the normal collating sequence. This is a 
special table requiring no File Description or Extension 
Specifications Sheet. The following entries are needed for 
each table record entered: 


Positions 1-6: Enter ALTSEQ to indicate that you are 
altering the normal sequence. 


Positions 7-8: Leave these positions blank. 


Positions 9-10: Enter the hexadecimal number of the 


character whose normal collating sequence is being changed. 


Table D-5 in Appendix D and Figure 7 list characters and 
their hexadecimal equivalents. 


Positions 11-12: Enter the hexadecimal number of the char- 


acter that is replaced by the character being changed. 
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Positions 13-16, 17-20, 21-24, etc.: These positions are 
used in the same way as positions 9-12. There may be as 
many position entries as the record can contain. Additional 
records may be used with the above format. The first blank 
position terminates the record. ** or /* ends the table. 


The alternate sequence table must be preceded by a record 
with **% in positions 1-3, The remaining positions of the 
record may be used for comments. This table must follow 
the RPG II specification deck and file translation cards, if 
used. Figure 3 shows the arrangement of cards in an 

RPG II source deck. 


Translation Table and Alternate Collating Sequence Coding 
Sheet 


The Translation Table and Alternate Collating Sequence 
Sheet (Figure 7) can be used for coding an alternate collating 
sequence. It helps you to determine the entries needed for 
the alternate collating sequence table input records. 


Causing Characters To Be Considered Equal 


If you want a character to be considered the same as 
another character, both must hold the same position in the 
collating sequence. For example, you may want a blank to 
be considered a zero. Therefore, you need to define an 
alternate collating sequence in which the blank is the same 
as the zero because it holds the same position in the se- 
quence. The alternate collating sequence input record looks 
like this: . 


Position Entry 

1-6 ALTSEQ 

7-8 Blanks 

9-12 40FO (blank takes the zero’s position) 


Whenever a blank is read and used in a compare, it is con- 
sidered as a zero. Thus, if you were comparing characters to 
0036 to find an equal condition, 0036:and 4636 (where 
b=blank) both compare equal to 0036. 
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Figure 7. Translation Table and Alternate Collating Sequence Coding Sheet 


By/Takes 
Place Of 
aaa 
[ere 
| 
{| 
ie | 

Pp 

YS 
Caos) 
lit, = %] 
[Ss ara 
ae 
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Entry 
63 


System/3 
Graphic - 
+ 


t=) 


01001100 
01001101 
01001110 
01010011 
0101010! 
01041110 
01011111 
011001 

00 
0110001 
01100011 
01100101 


01001011 

















7 
OA 
2A 

Cc 


System/3 
Graphic 


Q 


01010 
1110 
4111 

0010001 

10010 

10011 

10101 

10010110 
10111 
00100001 
00100011 
0010010 
00100101 
00100110 
00100111 
00101000 
00101001 
00101010 
00101011 
00101100 
00101101 
00101110 
0011000! 
00110001 
00110010 


00011110 






Control Card Specifications 


17 


Altering the Normal Collating Sequence 


You can alter the normal collating sequence in several ways. 
You can insert a character between two existing characters, 
you can take a character out of the sequence, or you can 
change characters (put A where Z is, and Z where A is). 
Regardless of how you alter the sequence, you must specify 
every character to be changed by the alteration. For 
example, if you want the dollar sign ($) to be positioned 

in the collating sequence between A and B , the normal 
sequence is changed as follows: 


Normal _ Altered 
Sequence Sequence 


Normal _ Altered 
Sequence Sequence 


moanwp 
GVaAWM p> 

“Tan 
—~Ta mnt 


On the Translation Table and Alternate Collating Sequence 
Coding Sheet, note that there are many characters between 
I and} ,R andS, Z and 0. These characters can be repre- 
sented in the computer and on records by a certain code. 
However, they have no printable graphic symbol. Due to 
this particular arrangement of graphics, nongraphics, gra- 
phics, etc. in the collating sequence, a character, when in- 
serted between A and B, changes only the position of 
graphics B through J. All other graphics are not affected. 
B through J all move down one position, causing the J to 
take the place of the non-graphic represented by hexadeci- 
mal CA. This does not matter, however, since the original 
character CA cannot be printed anyway. See Figure 8 for 
the entries on the Translation Table and Alternate Collating 
Sequence Coding Sheet. 


The alternate sequence input record is constructed as 
follows (this record must be preceded by a record with 
**¥ in positions 1-3): 





International Business Machines Corporation 
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Printed in 
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Figure 8. Altering the Collating Sequence 
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Replaced Re 
Place Graphic 
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Position Entry 


1-6 ALTSEQ 

7-8 (blanks) 

9-12 5BC2 ($ takes B’s position) 
13-16 C2C3 (B takes C’s position) 
17-20 C3C4 (C takes D’s position) 
21-24 C4C5 (D takes E’s position) 
25-28 CSC6 (E takes F’s position) 
29-32 C6C7 (F takes G’s position) 
33-36 C7C8 (G takes H’s position) 
37-40 C8C9 (H takes I’s position) 
41-44 C9CA (I takes a new position held by no 


other printable character) 


COLUMNS 27-36 


Columns 27-36 are not used by System/3. 


COLUMN 37 (INQUIRY) 
Entry Explanation 


Blank The program cannot be interrupted (does 
not recognize an inquiry request). 


B The program can be interrupted (recog- 
nizes an inquiry request). RPG II 
5704-RG2 does not support B-type 
programs. 


I The program is an inquiry program that 
can only be executed when an inquiry 
request is made. 


System/3 allows certain programs to be interrupted while 

they are being processed. A request for interruption is 
called an inquiry request and is handled by the rollout/ 
rollin support of the supervisor. (For Models 10 and 12, 
made by pressing the REQ key on the printer-keyboard; 
for Model 15 using SCP 5704-SC1, made by entering a 
ROLLOUT OCC command. See JBM System/3 Model 15 
System Control Programming Reference Manual, 
GC21-5077). 


An I-type program is usually read in only when a B-type 
program is interrupted. In this case, the I-type program 

does not recognize an inquiry request. However, if an 

I-type program is loaded in the normal manner (not because 
of a program interrupt), input from the console on the 
Model 10 is accepted after an inquiry request has been made. 
On the Model 15, input from the CRT/Keyboard is accepted 
after the PAI key has been pressed. For Model 15, if 
CRT77 input is not specified, the program is loaded and 
executed as if column 37 was blank. 


The RPG I] inquiry request is outlined in these steps: 


1. Only a B-type program recognizes an inquiry or roll- 
out request. 


2. When the program recognizes an inquiry or rollout 
request, a rollout routine moves the interrupted pro- 
gram from main storage to disk. 


3. The program for which the interrupt was requested 
is processed. The interrupting program may be any 
type (blank, B, or I). This interrupting program 
cannot be interrupted. 


4. After the interrupting program is executed, the inter- 
rupted program moves back into main storage using a 
rollin routine. The interrupted program resumes 
execution at the point of interruption and terminates 
in a normal manner. 


On the Models 10 and 12 (in dual program mode) or Model 
15 (with both partitions active), the same specifications 
apply. However, only level 1 programs can be interrupted 
and moved out of main storage by a rollout routine. 


Note: An inquiry request can also be made by using IBM- 
written subroutines (SUBR95 (Models 10 and 12) or 
SUBR89 (Model 15) instead of rollout/rollin. For informa- 
tion on this method see Appendix J. When these sub- 
routines are used, it is not necessary to supply a code in 
column 37 of the control card. 


COLUMNS 38-40 


Columns 38-40 are not used by System/3. 


COLUMN 41 (1P FORMS POSITION) 


Entry Explanation 
Blank First 1P line is printed only once. 
1 First 1P line can be printed repeatedly. 
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When forms are first inserted in the printer, they may not 
always be in perfect alignment. Sometimes several lines 
must be printed to determine the correct positioning of the 
form. Since you may not want to print several lines of a 
report before getting the forms positioned correctly, you 
have the option of repeatedly printing the first line condi- 
tioned by the first page (1P) indicator. Each time the 1P 
line is printed, the program halts so you may reposition the 
forms if needed. Forms positioning applies to the first 1P 
output line for the first printer file. Page count is not 
incremented until the forms are positioned correctly. 


COLUMN 42 (INDICATOR SETTING) 


Column 42 is not used. 


COLUMN 43 (FILE TRANSLATION) 


Entry Explanation 
Blank No file translation is needed. 
F Input, output, update, or combined files 


are to be translated. 


Use column 43 only when information contained in an 
input, output, combined, or update file is in a form which 
requires translation. When file translation is specified for 
an update or combined file, both the input and output 
portions of the file are translated. In this discussion, input 
and output characters are referred to as external characters; 
characters used for processing within System/3 are called 
internal characters. | 


An F in column 43 indicates either or both of the follow- 
ing: 


1. The character code used in the input data (external 
character) must be translated into a form that can 
be used by your program (internal character). 

2. The output data must be in a character code differ- 
ent from that used by your program. "4 


FILE TRANSLATION 


RPG II allows you to translate any character code into 
another character code. This capability is file translation. 


A different character code used as input can be translated 
into the code used by System/3,\and the code used by 


System/3 can be translated into a different code for output. 
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Specifications for File Translation 


To indicate that there are files to be translated, enter an F 
in column 43 of the RPG II Control Card Specifications 
Sheet. File translate table records must also be used to 
specify how the translation is to be done. The following 
entries are needed for each file translation table record 
used: 


Positions 1-6: Enter *FILES to indicate that all input, 
output, update, and combined files are to undergo trans- 
lation (both the input and output portions of update and 
combined files will be translated). Then use the specifica- 
tions listed below, beginning with positions 9-10. All files 
will be translated according to the translate table specified 
beginning in position 9. 


If only certain files are to be translated, you need not 
specify *FILES, but you must name the files to be 
translated (in columns 1-8) as follows: 


Positions 1-8: Enter the filename of the input, output, up- © 
date, or combined file to be translated (both the input and 
output portions of update and combined files will be trans- 
lated). Then use the following specifications, beginning 
with positions 9-10. 


Positions 9-10: Enter the hexadecimal equivalent of the 
external character. This is the character in a different char- 
acter code to be translated from input data or for output 
data. 


Positions 11-12: Enter the hexadecimal equivalent of the 
internal character. This is the character in the System/3 
code which internally represents the external input or out- 
put character. | 


Positions 13-16, 17-20, and 21-24, etc: These groups of 
positions are used the same way as positions 9-12, The 

first two positions of a group give the character to be trans- 
lated into the character named in the last two positions of 
agroup. All tables for one file must be kept together. The 
file translation table input records must be preceded by a 
record with **% in positions 1-3. The remaining positions 
of this record may be used for comments. The file trans- 
lation records must directly follow the RPG II specifications 
in the source program (Figure 3). 


Example 


Assume that a department store must process cards serving 
as sales slips for all items sold. Each card contains a 
punched and printed record of the actual, or wholesale, 
cost of its associated item along with a retail price. 


Since wholesale cost is confidential, the store uses indivi- 
dual letters of a code name in place of wholesale cost 
figures. . 


A typical code name consists of a combination of letters 
that can be easily remembered by the store’s personnel. 
The only restriction, however, is that the code name must 
contain ten different letters, one for each of the numbers 
zero through nine. 


Using the code name BUCKINGHAM to represent numbers 
one through nine and zero, the letter B represents the num- 
ber 1; letter U represents number 2, etc. Letter M repre- 
sents zero. Individual letters are combined to represent 
each item’s wholesale cost. Thus a wholesale cost of 
BBU.CC translates as 112.33; that is, one hundred twelve 
dollars and thirty-three cents. 


In the following chart, hexadecimal equivalents of each 
letter in the word BUCKINGHAM are listed along with the 
hexadecimal equivalents of numbers one through nine and 
zero, 


Letter in Hexadecimal Hexadecimal 
Codename Equivalent Number Equivalent 
B C2 1 Fl 

U E4 a FQ 

C C3 3 F3 

K D2 4 F4 

I C9 5 F5 

N DS 6 F6 

G C7 . 7 F7 

H C8 8 F8 

A Cl 9 F9 

M D4 0 FO 


Hexadecimal equivalents are merely a different way of 
representing the 8-bit code that the computer examines to | 
recognize individual characters in your language. 


See Figure 9. Note that if letters BBU were read and never 
translated, hexadecimal equivalents C2, C2, and E4 would 
be used by System/3. Asa result, it would be impossible to 
perform an arithmetic operation involving the wholesale 
cost, BBU. Therefore, with the aid of file translation, the 
computer replaces the letters BBU with numbers. 


File translation table input card specifications for letters . 
in the word BUCKINGHAM are as follows: 


Column Entry 
1-6 *FILES 
78 Blank 
9-12 C2F1 
13-16  E4F2 
17-20  C3F3 
21-24 ©D2F4 
25-28  COFS 
29-32  DS5F6 
33-36 C7E7 
37-40 C8F8 
41-44 C1F9 
45-48  D4FO 


Only the letters of the previous example will be specified 
for translation. All other characters will be handled in the 
normal manner. Figure 10 shows the entries made on the 
Translation Table and Alternate Collating Sequence Coding 
Sheet for the previous example. 


COLUMN 44 (PUNCH MFCU ZEROS) 


Entry Explanation ~ 
Blank Leading zeros are removed. 
1 Leading zeros are used. 
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number 2, is the letter 
___ U in the code used by 
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the System/3. 
Figure 9. Differences in Character Codes 
This column applies only to output on the MFCU. If the COLUMN 45 (NONPRINT CHARACTERS) 
column is left blank, all numeric output fields on the MFCU 
will be zero suppressed to the units position. Enter a J in Entry Explanation 
column 44 when you wish to have leading zeros on fields 
punched or printed by the MFCU. Blank Program halts if an unprintable character 


If an edit word or edit code is defined for fields to be 
printed or punched on the MFCU, the edit word or code 1 
will override column 44. 


22 


was in the last line printed. 


No program halt for such unprintable 
characters. 


International Business Machines Corporation 


TRANSLATION TABLE AND ALTERNATE COLLATING SEQUENCE CODING SHEET 
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This is the hexadecimal equivalent 
of the character to be translated. 


Figure 10. Specifications for File Translation Input Cards 


Column 45 is used to bypass machine halts for unprintable 
characters. This column applies to the printer and the 
printer keyboard. All characters are known to the system 
by a numeric code. If a numeric code is formed which is 
not known to your system (not in your character set) and 
that character is to be printed, the machine will halt after 
printing the line. The unprintable characters will have 
been replaced by blanks. 
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This is the hexadecimal equivalent of the 
System/3 character that will be substituted 
for the character that is to be translated. 


If you wish to bypass this halt, enter a one (1) in column 
45. An unprintable character will be printed as a blank and 
no halt will occur. Note, however, that this option could _ 
make some types of output data meaningless. 


COLUMNS 46-47 


Columns 46-47 are not used. 
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COLUMN 48 (SHARED I/O AREA; EXTERNAL 
BUFFERS FOR PROGRAM NUMBER 5704-RG2 ONLY) 


Entry Explanation 

1 All 5444 disk files share a single input/ ° 
output area (Program Number 5702-RG1 
only). 

E External buffers for disk devices (Program 
Number 5704-RG2 only). 

Blank All disk files use a separate input/output 


area. 


For Model 10 5444 disk files, enter a 1 in this column to 
indicate that all disk files in the program share a single 
input/output area. For Program Number 5704-RG2, enter 
an E in this column to specify external buffers for disk 
devices. This option causes all disk I/O buffers to be out- 
side the generated object program. This allows the user 
program to be up to 52K long excluding the I/O buffers. 
When the object program is executed, the user must allo- 
cate a partition large enough to contain the object program 
and the disk buffers. For more information about external 
buffers, see the appropriate SCP reference manual or overlay 
linkage editor manual listed under Related Publications in 

~ the Preface. 
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Normally an RPG II program uses one input/output area 
for each file. A 1 in column 48 allows all 5444 disk files 
to use one input/output area. By specifying a shared input/ 


- output area, you can reduce the amount of main storage 


needed to process a program. This is particularly important 
if a program is so large that it cannot run in the main stor- 
age you have available. However, the use of a shared input/ 
output area increases the time required to process your 
program. Therefore, before you indicate that all disk files 
are to share one input/output area, be sure that the program 
would otherwise exceed the capacity of the system. 


Note 1: A shared input/output area cannot be specified for 
multivolume files (entry greater than 01 in columns 68-69 
of the File Description sheet). 

Note 2: Additional input/output areas (entry in column 32 
of the File Description Sheet) cannot be specified for disk 
files using a shared input/output area. 


COLUMNS 49-74 


Columns 49-74 are not used. Leave them blank. 


COLUMNS 75-80 (PROGRAM IDENTIFICATION) 


See Chapter 2. 


Chapter 4. File Description Specifications 


File description specifications are required for every file COLUMNS 1-2 (PAGE) 
used by a program. Write these specifications on the Con- 
trol Card and File Description Sheet (Figure 11). Only one See Chapter 2. 
line is needed to describe a file. A maximum of 20 file 
description records are allowed per program. 
COLUMNS 3-5 (LINE) 
At the end of this chapter is a series of charts showing all 
possible files that can be defined on the File Description See Chapter 2. 
Sheet. The charts are arranged by device, showing the 
basic entries for all possible disk, card, console, and printer 


files, COLUMN 6 (FORM TYPE) 


An F must appear in column 6. 


RPG CONTROL CARD AND FILE DESCRIPTION SPECIFICATIONS Sen rated 


Printed in U.S.A. 
Card Electro Number 1-2 
Punching Paoe| | Jor Program 
[rere fom ee ee ETT LO — len 


IBM International Business Machine Corporation 


75 76 77 78 79 80 





Control Card Specifications 


aa 


ternate Collating Sequence 


Overlap Printer 
Binary Search 

1P Forms Position 
Nonprint Characters 


Work Tapes 
Overlay Open 
8 Tape Error 


Shared 1/0 


Field Print 


<z 
23 24 25|26]27 28 29 30] 31}32/33]34 


- 

3 Indicator Setting 

8 File Translation 

£ Punch MFCU Zeros 


| 


c 
io} 
Pa 
s 
> 
8 
Oo Refer to the specific System Reference Library manual for actual entries, 
a 
od 
2 
oO 
a 
a 
5 


% Read/Write/Compute 
& Keyboard Output 


8 2152 Checking 
3 Sign Handling 
® Table Load Halt 


= 
iJ 
i 
iO 


1 67 68 69 70 71 72 73 74 


S2 53 54 55 56 57 58 59 60 61 62 63 64 65 66 


|| 8 Formatted Core Dump 





File Description Specification 


File Type Mode of Processing File Addition/Unordered 
File Designation Length of Key Field or Extent Exit Number of Tracks 
of Record Address Field for DAM for Cylinder Overflow 
Record Address Type Symbolic Name of Number of Extents 
Filename Type of File Label Exit 
File Format Organization 
or Additional Area 


1/0/U/C/D 
P/S/C/R/T/D 


~ 7d 
o 5 
~ 
a 





zs 


(sD tl ee 
“Lit tT tT fT tt ty 


Figure 11. Control Card and File Description Sheet 
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COLUMNS 7-14 (FILENAME) 


Use columns 7-14 to assign a unique filename to every file 
used in your program except compile time table and array 
files, which must not be named on the File Description 
Sheet. (Compile time tables and arrays are described on 
the Extension Sheet.) The filename can be from 1-8 char- 
acters long, must begin in column 7, and must be a valid 


RPG II name. The filename can be the same as a field name. 


Pre-execution time table and array files are described on 
the File Description Sheet. More than one table or array 
file can be described for the same device (see columns 
40-46 in this chapter). For the MFCU (but not for other 
devices), a single file may contain more than one table or 
array. In this case, the MFCU file would be named only 
once on the File Description Sheet, but each table or array 
within the file would be described separately on the Exten- 
sion Sheet (see Tables and Arrays in Chapter 5). 


COLUMN 15 (FILE TYPE) 


Entry Explanation 

I Input file 

O Output file 

U Update file 

C Combined file 
D Display file 


Use column 15 to identify the way in which your program 
uses the file. 


Input File 


Input files are records that a program uses as a source of 
data. When input files are described in a program it indi- 
cates that records are to be read from the file. All input 
files except table and record address files must be further 
described on the Input Sheet. Table files and record address 
files must be further described in the Extension Sheet. 


Output Files 
' Output files are records that are written, punched, or 
printed by a program. All output files, except table and 


array output files, must be further described on the Output 
oe 
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Update Files 


Update files are disk files from which a program reads a 
record, updates fields in the record, and writes the record 
back in the location from which it was read. Update files 
must be further described on both the Input Sheet and 
Output Sheet; only the fields to be updated must be 
described on the Output Sheet. A record in a update file 
can be updated only once during a cycle (see output file 
output indicator description). A chained file or a demand 
file may be updated at detail time or at total time or excep- 
tion time. All other disk files should be updated only at 
detail time, during the same program cycle that reads the 
record, otherwise, results of the update will be unpredictable. 


Model 15 Systems: The CRT/keyboard can be specified as 
an update file. This gives you the flexibility of displaying 
fields or constants on the CRT during output and respond- 
ing to, altering, or adding to the fields or constants during 
input. See Figure 12 for an example and refer to CRT/Key- 
board Files (Model 15) in Chapter 4 for a further description. 


Combined Files 


A combined file is both an input and an output file. For 
Models 10 and 12, a combined file can be assigned only to 
the MFCU or 1442 Card Read Punch. For Model 15, 
MFCU, MFCM, or 1442 Card Read Punch files can be 
combined files, A program reads records from a com- 
bined file and includes output data on the records in the 
file. The result is one file that contains both input and 
output data. Combined files must be further described 
on both the Input Sheet and Output Sheet. 


Output data can be printed or punched on cards as they 
are read. 


Do not condition output to a combined file such that more 
than one record can satisfy the output conditions during 
the same cycle. (This condition should not exist for the 
entire detail output cycle, even if output is going to more 
than one combined file.) 


All output records to a combined file are stored in a hold 
area until another record is read from the combined file. 
The output record is printed or punched ee prior to the 
time the new record is read. 


Since each cgeoid stored in the hold area overlays and 
replaces any record previously stored in the hold area, 

only one record can be available as output to a combined 
file during any one RPG II cycle. This record will be the 
last record that satisfied output conditions during the cycle. 
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Output Indicators 





Field Name 


Filename 


Constant or Edit Word 





The following is displayed on the CRT at 


output time. 








THIS IS AN EXAMPLE USING THE CRT/KEYBOARD 


AS AN UPDATE FILE. 


ENTER THE FOLLOWING: 
DATE—DD/MM/YY 


NAME— 
STREET NUMBER— 


CITY/STATE/ZIP— 
























At input time the operator enters the information 


called for. Any data displayed can be changed at 


this time. All data displayed plus new data entered 


will be available for processing. 


Figure 12. Coding a CRT file as an update file 
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File Description Specifications 


Display Files 


A display file is a collection of information from fields used 
- by aprogram. The DSPLY operation code must be used on 
the Calculation Sheet in order to print a field or record 
directly from storage and/or key data into a field or record 
in storage. Display files need only be described on the File 
Description Sheet. The device associated with a display file 
for a Model 10 or 12 must be a printer-keyboard (CON- 
SOLE). For a Model 15, it must be the CRT/keyboard 
(CRT77). See Operation Codes, Display in Chapter 8 for 
more information. 


COLUMN 16 (FILE DESIGNATION) 


Entry Explanation 
P Primary file 
Ss Secondary file 
C Chained file 
R Record address file 
C Gv; Table or array file (preeiecition time 


tables or arrays) 


D Demand file 


Use column 16 to further identify the use of input, update, 
combined, and chained output files. Leave the column 
blank for display files and all output files except chained 
output files (direct load). 


Primary Files . 


A primary file is the main file from which a program 

reads records. In multifile processing the primary file is 
used to control the order in which records are selected for 
processing. It can be an input, update, or combined file. 

In programs that read records from only one file, that file 
is the primary file. Every program must have one, and only 
one, primary file. 
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Secondary Files 


Secondary files apply to programs that do multifile process- 
ing. All of the files involved in multifile processing, except 
the primary file, are secondary files. A secondary file can 
be an input, update, or combined file. Secondary files are 
processed in the order in which they are written in the file 
description specifications. 


Note that table, chained, record address, and demand files 
are not involved in record selection in multifile processing. 


See Multifile Processing (columns 61-62) in Chapter 7 for . 
more information on primary and secondary files. . 


Chained Files 


A chained file is a disk file that is read randomly or loaded 
directly via the CHAIN operation code. A maximum of 15 
chained and/or demand files are allowed per program. 


A chained file can be an input, output, or update file. See 
Column 28 (Mode of Processing), Random in this chapter, 
and Operation Codes, CHAIN in Chapter 8. 


Record Address Files 


A record address file is an input file that indicates which 
records are to be read from a disk file and the order in 
which the records are to be read from the disk file. You 
cannot use more than one record address file in a program. 
All record address files must be further defined in extension 
specifications. 


- Record address files contain either record key limits or 


relative record numbers in binary format. Record address 
files that contain record key limits can be disk files, card 
files, tape files, diskette files or can be entered from the 
printer-keyboard (Models 10 and 12) or CRT/keyboard 
(Model 15). | 


Record address files that contain binary relative record 
numbers can only be disk or tape files. Those files that 
contain limits are used with indexed files only. See 
Column 28 (Mode of Processing), Sequential Within Limits 
in this chapter for more information. . 


Record address files on disk that contain binary relative 


record numbers are called ADDROUT (address output) files. 


They are produced by the Disk Sort Program and can be 
used with any type of disk file. See Column 28 (Mode of 
Processing), By ADDROUT File in this chapter for more 
information. 


Table or Array Files 


A table or array file is a sequential input file that contains 
table or array entries. The entries can be read into the pro- 
gram during compilation or immediately before execution 
of the program. Only pre-execution time tables or arrays 
are described on the File Description Sheet. However, both 
pre-execution and compile time tables and arrays must be 
described in the Extension Sheet. 


A table or array output file (written or punched after LR 
output) is defined as a normal output file and does not 
require an entry in column 16. 


Table and array files are not involved in record selection 
and processing. They are only a means of supplying entries 
for tables or arrays used by the program. When table or 
array files are read during the execution of the program, 
the program reads all the entries from the table or array 
files before it begins record processing. See Tables and 
Arrays in Chapter 5 for additional information. 


Demand Files 


Demand files can be input, update, or combined files. The 
READ operation code must be used on the Calculation 
Sheet in order to read from a demand file. Demand files 
can be processed either sequentially by key or consecu- 
tively. A maximum of 15 demand and/or chained files are 
allowed per program. See Operation Codes, READ in 
Chapter 8 for a discussion of processing demand files. If a 
demand file is assigned to the same device from which the 
OCL is read, the last OCL record may be placed in the 
wrong stacker. 


COLUMN 17 (END OF FILE) 
Entry Explanation 


E All records from the file must be processed _ 
before the program can end. 


Blank 1, The program can end whether or not 
all of the records from the file have 
been processed. 


2. If column 17 is blank for all of the 
files, all records from every file must 
be processed before the program can 
end, 


Column 17 applies to programs that perform multifile 
processing. Use it to indicate whether or not the program 
can end before all of the records from the file are processed. 
It applies only to input, update, and combined files that are 
used as primary, secondary, or record address files. 


A program that performs multifile processing could reach 
the end of one file before reaching the end of the others. 
It therefore needs some indication of whether it is to con- 
tinue reading records from the other files or end the pro- 
gram. An entry in column 17 in the descriptions of the 
files provides that indication. 


If the records from all the files must be processed, column 
17 must be blank for all files, or contain £’s for all files. 


End-of-File Processing 


By specifying an E in column 17 of the File Description 
Sheet, you indicate that the job is to end after all records 
are processed from the file for which you specified the E. 
In most cases, the job will end at the time all records from 
that file are processed. However, under certain conditions 
additional records may be processed after all records from 
the file with the E designation are processed. The excep- 
tional situation is in matching records when an E£ is desig- 
nated for the primary file and all records from that file have 
been processed. The job will end only after all secondary 
records that match the last primary record have been 
processed or the first secondary record without a match 
field has been encountered. 
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Figure 13 shows the records that will be processed for COLUMN 18 (SEQUENCE) 
various end-of-file situations. 
Entry Explanation 


A Sequence checking is to be done. Records 
in the file are in ascending order. 


Primary File Secondary File 


D Sequence checking is to be done. Records 
in the file are in descending order. 


Blank No sequence checking is to be done. 


Column 18 applies to update files, combined files, and all 
input files except table, array, chained, demand, and record 
address files. Leave column 18 blank for output, display, 
record address, table or array files, and chained files. Use 
it to indicate whether or not the program is to check the 
sequence of the records. Use columns 61-62 on the Input 
Sheet to identify the matching fields containing the 
sequence information. 


Sequence checking is required when match fields are used 
in the records from the file. When a record from a match- 
ing input file is out of sequence, the program halts, and the 
operator has three options: 


os sae Pe ies 1. Bypass the record out of sequence and read the next 
Letter E Designated for Primary File Only FECOrd Troma SanehIe: 


: i f match field 
Reyes < Numeric veluce soy coo erie 2. Bypass the record out of sequence, turn on the LR 


e All records above dotted line are processed indicator, and perform all end-of-job and final total 
before the job ends procedures. 





Figure 13. End-of-File Processing 3. Cancel the entire program. 
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COLUMN 19 (FILE FORMAT) 


Entry Explanation 

F (or Fixed length records 

blank) 

Vv Variable length records (EBCDIC tape 
files only) 

D Variable length records (ASCII tape 
files only) 


Column 19 may contain an F, V or Dentry. An F entry 
indicates all records in the file are the same length. A V 
entry indicates records in a tape file are variable length 
EBCDIC. A D entry indicates records in a tape file are 
variable length ASCII. A blank defaults to fixed length 
‘records (F). 


| COLUMNS 20-23 (BLOCK LENGTH) 


Entry Explanation 

1-9999 1. Multiple of record length or record 
length for disk BSCA or SPECIAL 
files. 


2. Record length for MFCU, MFCM, 
DISKET, CONSOLE, PRINTER, 
PRINT84, READ42, CRT77, and 
‘READO01 files. 


18-9999 Tape file block length. 
Blank Block length for this file is the same as 
record length. 


Columns 20-23 have a different use depending on the 
device named for the file. If an entry is specified, the entry 
must end in column 23, and leading zeros can be omitted 
(Figure 16). 


Block Length for Disk Records 


Disk block length must be a number equal to record length 
or a multiple of record length. The maximum block length 
is 9999. 


Block length does not affect the way records are written on 
disk. Its function is to specify the amount of main storage 
to use for input/output area. 


If a value equal to the disk record length is entered in these 
columns, RPG II will assign an efficient block length. See 
Table D-7 in Appendix D for block lengths computed by 
RPG II for various disk files and record lengths. 


Block Length for Tape Records 


The block length for fixed length tape records must be a 


‘ multiple of the record length plus the length of the buffer 


offset and the total length must be from 18 to 9999 char- 
acters. When figuring the block length, remember to 
allow space for: 


1. The number of records to be in.a block 


2. The length of the buffer offset (block prefix). This 
applies to ASCII files only. 


The block length for variable length tape records need not 
be an exact multiple of the record lengths, but the follow- 
ing factors should be considered when calculating the 
approximate block length: 


1, Constants of four bytes per block and four bytes per 
record should be added. 


2. The minimum block size would be the maximum 
record length plus eight. 


For a discussion of buffer offset, see Colimns 54-59 
(Continuation Line Option). 
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Device Block Length Record Length Maximum System 
(Columns 40-46) (Columns 20-23) (Cotumns 24-27) Record Length Supported 


Blank (Device Record length or multiple Record length 9999 , | 
independent files) of record length 
or DISK40 (Models 12 of record length. and 15 
and 15 only) 
MFCU1 or MFCU2 Record length Record length ‘Models 10, 12, 
, and 15 
CONSOLE Record length Record length 125 5 Models 10 and 12 
(printer-keyboard) 


PRINTER Record length Record length 96, 120, or 132 Models 10, 12, 
, (number of print and 15 
positions) 


PRINTR2 Record length Record length 96, 120, or 132 Models 10 and 12 
; (number of print 
positions) 


Record length or a multiple Record length Models 10, 12, 


of record length plus the and 15 
buffer offset. 


READ42 Record length Record length Models 10, 12, 
and 15 
CRT77 Record length Record fength 120 — Input or 
(CRT/keyboard) _ . Output files 
. 35 — Display files 
279 — Update files 


READO1 Record length Record length 
(2501 Card Reader) 
MFCM1 and MFCM2 Record length Record length | Model 15 | 


BSCA Record length or multiple Record length | 9999 Models 10, 12, 
of record length one and 15 

SPECIAL - Record length or multiple Record length 9999 Models 10, 12, 
of record length and 15 ; 


DISKET Record length Record length Models 10, 12, 
(3741 Data Station and 15 
or Programmable 

Work Station) 


Figure 14. Block Length and Record Length Entries 
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COLUMNS 24-27 (RECORD LENGTH) 


Entry Explanation 
1-9999 The number of characters in each record 
(limited by the device used). 
18-9999 Record length for tape files. 


Columns 24-27 are used to indicate the length of records 
in all files except variable length tape files. All of the 
records in one file must be the same length. (For update 
files, the length of a record after it is updated must be the 
same as before it was updated.) The maximum record 
length allowed and the size of the I/O area assigned de- 
pends upon the device assigned to the file (Figure 14). 
For printer and card devices, an I/O area equal to the 
maximum record length is assigned. The record length 
specified, however, may be shorter than the maximum 
length for the device. | 


If no entry is placed in columns 24-27, the program de- 
faults to the maximum record length for the device. For 
disk files, the default is 256; for SPECIAL, the default 

is 9999. : 7 


MY 


The entry you place in these columns must end in column 
27. Leading zeros can be omitted. 


The record length for tape must specify the size of the data 
records to be processed by this program. The record length 
for printer and card devices will be the maximum for the 
device (Model 15 only). 


If variable length records are being used with a tape file, 
the record length must be the length of the largest record. 


COLUMN 28 (MODE OF PROCESSING) 


Entry Explanation 
L Sequential within limits. 
R 1. Random by relative record number. 


2. Random by key. 

3. By ADDROUT file. 

4. Direct file load (random load). 
Blank 1. Sequential by key. 


2. Consecutive. 


Use column 28 to indicate the method by which records 
are to be read from the file or to indicate that a direct file 
load (random load) is to take place. 


For disk files specified as primary, secondary, or chained 
files, the possible methods depend upon the organizations 
of the files (Figure 15). For the other types of files, con- 


secutive processing is the only possible method. 
Column 31 is used to further identify the method for the 


program. See Column 31 (Record Address Type) in this 
chapter. 


PRIMARY, SECONDARY, OR DEMAND FILES 


Organization Possible Methods 















Sequential. 1. Consecutively 
, 2. By ADDROUT file 


Direct 1. Consecutively 
2. By ADDROUT file 


Indexed 1. Consecutively 
2. By ADDROUT file 
~,3. Sequentially by key 
. Sequentially within limits 


CHAINED FILES 


Organization Possible Methods 


Sequential Randomly by relative record number 
Direct Randomly by relative record number 


Indexed 


Randomly by key or by relative record 
number 





Figure 15. Possible Record Retrieval Methods for Disk Files 


Consecutive 


The consecutive method applies to all sequential and direct 
files. It may also be used with indexed input files. During 
consecutive processing, records are read in the order in 
which they physically appear in the file. The contents of 
spaces left for missing records in direct files are read as 
though the records were there. (When a direct file is loaded, 
such spaces are filled with blanks.) You should allow for 
these blank records in your program. 


The program reads records from the file until either the end 
of that file is reached or the program ends due to the end- 
of-file condition of another file. See Column 17 (End of 
File) in this chapter for more information about the second 
condition. 
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By ADDROUT File 


An ADDROUT (address output) file is a record address file 
produced by the Disk Sort Program. It is a file of 3-byte 
disk records or 18-byte tape records containing binary 
relative record numbers of records in a disk file. Each tape 
record contains six binary relative record numbers. The 
binary relative record number is converted to a disk address 
and the record at that address in the original disk file is 
located and read. Records are read in this manner until 
either the end of the ADDROUT file is reached or the 
program ends due to the end-of-file condition of another 
file (see Examples, Example 1). See Column 17 (End of 
File) in this chapter for more information about the second 
condition. 


Sequential By Key 


The sequential by key method of processing applies to 
indexed files that are used as primary, secondary, or 
demand files. 


Records are read in ascending key sequence (the order in 
which the record keys are arranged in the index portion of 
the file). The program reads records until all records in 

the file are processed or the program ends due to the . 
end of file condition of another file. See Column 17(End. 
of File) for more information about the second condition. 


Sequential Within Limits 


The sequential within limits method of processing can be 
accomplished by using either: (1) a record address file con- 
taining limit records, or (2) the SETLL operation code during 
calculations. 


The first method applies only to indexed disk files used as 
primary and secondary files and demand files. A limits 
record consists of the lowest record key and the highest 
record key of the records in the indexed disk file which are 
to be read. Limits records are contained in a record address 
file. The record address file can be located on disk, diskette, 
tape, punched on cards, or entered via the keyboard. 
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The second method applies only to indexed disk files used 
as demand files and sets the lower limit only. The program 
defaults to the address of the last record in the file for the 
upper limit. The lower limit may be reset before end of file 
is reached. 


To process sequentially within limits, the program reads: 


1. A limits record from the record address file, or the 
- SETLL operation is used during calculations. 


2... Records with keys greater than or equal to the low 
record key and less than or equal to the high record 
key (end of file when using SETLL). - 


The program repeats these two steps until either the end of 
the record address file is reached or the program ends due 
to the end-of-file condition of another file. See Column 17 
(End of File) in this section for more information about sg 
second condition. 


The format of the records in a record address file containing 
limits must conform to vee rules: 


1. Only one set of limits i is allowed per record i in the 
record address file. 


' 2. The length of a record in a record address file must 


be at least twice the length of the record key. 


3. The low record key must begin in position 1 of the- 
record. The high record key must follow the low © 
record key. A record key can be from 1-29 charac- 
ters in length. 


4. Both the low record key and the high record key must 
be equal in length to the key field length specified in 
columns 29-30. Therefore, leading zeros may be 
necessary in specifying numeric record keys. — 


5. | Analphameric record key may contain blanks. 


Files containing limits and files being processed by limits 
can have keys in different formats. (For example, one file 
can have packed keys and the other unpacked.) During 
execution time the format of the key from the file contain- 
ing limits will be changed to the format of the file being 
processed by limits. The format of the keys on each file 
must be indicated by an A or Pin column 31. Also, the 
unpacked key length must be twice the packed length, 
minus either 1 or 2. See Packed Decimal Format (P) for 
more information concerning this calculation. 


Note: A key may not contain any X‘FF’. 
The same set of limits can appear in more than one record 


address record. Data records, therefore, can be processed 
as many times as you wish. 


The two record keys in a limits record can be equal. In this 


case, however, only one data record will be read. 


The SETLL operation code method of limits processing 
applies to any indexed disk file designated as a demand file 
(D in column 16 and L in column 28 of File Description 
Sheet). You cannot, however, process an indexed demand 
file with SETLL if you are using a record address file to set 
the limits of the file. — 


The maximum number of files which may be processed 
using SETLL is limited by the number of demand files 
permitted (a maximum of 15 demand and/or chained files 
are allowed per program). See Example 2, Figure 17 for an 
example of SETLL. For additional information on how to 
set limits using the SETLL operation code, see Operation 
Codes in Chapter 8. 


Random 


The two methods, random by relative record number and 
random by key, apply to chained files only. They require 
the use of the CHAIN operation code. The records of a file 
to be read or written must be processed by the CHAIN 
operation code. The records are read or written only when 
the CHAIN statements that identify them are executed. 


For sequential and direct files, relative record numbers must 
be used to identify the records (see Examples, Example 3). 
Relative record numbers identify the positions of the records 
relative to the beginning of the file. For example, the rela- 
tive record numbers of the first, fifth, and seventh records 

in a file are 1, 5, and 7 respectively. (See Operation Codes, 
CHAIN in Chapter 8 for a description and example of direct 
file loading.) 


For indexed files, record keys must be used to identify the 
records (see Examples, Example 4). A record key is the 
information from the key field of a record. The informa- 
tion is used in the index portion of the file to identify the 
record. Indexed files may also be processed randomly by 
relative record number if they are input files. 


Records are read during the calculation phase of the pro- 
gram. Therefore, fields from these records can be used dur- 
ing detail or total calculations. Note then, that fields of 
records read from chained update files can be read and 
altered during total calculations and the records can be up- 
dated (written back on the file with alterations) during 
total output; the same also applies to detail calculations 
and detail output (see Examples, Example 5). 
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Examples / Since end of file (F in column 17 of the File Description 
Sheet) is specified for the ADDROUT file, processing 
Example 1 continues until all records in ADRTFILE have been read. 


Figure 16 shows processing a sequential disk file by an 
ADDROUT file. The record address file, ADRTFILE, 
defined as an ADDROUT disk file, consists of 3-byte binary 
relative record numbers which correspond to locations of 
records on the input disk file. MASTER. As each record is 
read from ADRTFILE, the indicated record from MASTER 
is located and read. For each record read from MASTER 
(indicator 01 is on), a detail line is printed on the printer 
output file, PRINTER. 
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File Descrip 


Example 2 


In Figure 17, the input disk file, MASTER, described as an 
indexed file to be processed by record keys is to be 
processed within the limits contained on the record address 
file, LIMITS. The LIMITS file, which is further described 
on the Extension Sheet, is to be read from the primary 
MFCM hopper. % 


Each set of limits read from LIMITS will consist of the 
low and high account numbers to be processed. Since the 
account number key field (ACCT) is eight positions long, 
each set of limits will include two 8-position keys. These 
consist of two 5-position packed fields. 
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As MASTER is processed within each set of limits, the 
corresponding records are written out on the printer output 
file, PRINTER. Processing is complete when all sets of 
limits have been processed. 


File SMASTER is processed by the SETLL operation code. 
It is characterized by having no extension specifications, 
and its filename appears in factor 2 of the SETLL operation 
code. In this example the first record read from file 
SMASTER would be the one whose key is equal to or the 
next higher than the literal ‘AAAAAAAA’, Records are 
read sequentially to end of file unless the cycle is inter- 
rupted by additional SETLL operations. 
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Figure 17 (Part 1 of 2). Processing an Indexed File Sequentially Within Limits 
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File Description Specifications 


Figure 17 (Part 2 of 2). Processing an Indexed File Sequentially Within Limits 


Example 3 


In Figure 18, the direct update file, MASTER, is to be 
processed randomly by relative record numbers. The 
account number (ACCT) from the primary MFCU file, 
CHANGE, is used as the relative record number. 


As each record is read from CHANGE, the MASTER record 
corresponding to the account number is read during calcula- 
tion time by the CHAIN operation code. At detail output 
time, the data in the NEW field replaces the original data in 
the NAMADR field and the updated MASTER record is 
output to its original relative record location on the disk 
file. 
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File Description Specifications 


Figure 18 (Part 2 of 2). Random Processing of a Direct File by Relative Record Number 





Example 4 CHANGE, the account number (ACCT) is used as the key 


to chain to the corresponding record in MASTER at calcu- 
lation time. At detail output time, the data in the NEW 
field of CHANGE replaces the original data in the NAMADR 
field. The updated MASTER record is then written on its 
original disk location. See Column 32 in this chapter for a 
description of indexed file organization. 


Figure 19 shows random processing by key of an indexed 
file. MASTER, a chained update file, is described on the 
File Description Sheet as an indexed file to be processed by 
keys. As each record is read from the input card file, 


RPG CONTROL CARD AND FILE DESCRIPTION SPECIFICATIONS iach rae 


Printed in U.S.A. 


IBM eetaend Business Machine Corporation i 






1 2 75 76 77 78 79 80. 
7 Card Etectro Numbe: 
Ce OO Os ree(@lulor ows 
Instruction ee ___ Identification 
Programmer P 


Control Card Specifications 


22] 23 24 25126] 27 28 29 30}31 53 54 65 56 57 58 59 6O 61 62 63 64 65 66 67 68 69 70 71 72 73 74 


Refer to the specific System Reference Library manuat for actual entries.’ 


360/20 2501 Buffer 





‘ : 7 a Fite Addition/Unordered 
: : Length of Key Field or Extent Exit Number of Tracks 
of Record Address Field for DAM for Cylinder Overflow 
Name of Number of Extents 
Filename 


Type of File i : Label Exit 
Organization 


Core Index 


Figure 19 (Part 1 of 2). Random Processing of an Indexed File by Key 


42 





Form GX21-9083 
Printed in U.S.A. 
75 76 77 78 79 80 


GX21-9090 U/M 050" 
Printed in U.S.A. 








75 76 77 78 79 80 


GX21-9094 U/M 050° 


Printed in U.S.A, 





75 76 77 78 79 80 





Field 
Indicators 
Comments 
Plus Sign 





Program 
Identification 
Program 
Hentification 
Program 
Identification 
X = Remove 


* vonejay picoay platy 








spjatg Buruyeyp 
40 spjaty Burysey 


2 


1 
Page 3} OF 


Resulting 
Indicators 


2 


1 
Page Pal of 


(61-61) 18487] jonuoD 


12 
Page ot 


ERB 


-[SJ= sf ff 
PtH asnipy eH B] | Tt 
suonisog rua Af |] td 


Constant or Edit Word 


Field Name 





SUOIZISOY [2WIZBQ 





Card Electro Number 
Card Electro Number 





Field Location 
Result Field 


nak 
SPECIFICATIONS 
eee 
ee at 





Coe 








INPUT SPECIFICATIONS 


OUTPUT 
Field Name 
35 
E 
il 
| 
i 





Output Indicators - 


fale 
baled 
g lil 
a. 
c 








¢ 
2 
=] 
e 
a 
° 


RPG CALCULATION SPECIFICATIONS 


2 zi & | ef] 
$s $6 ec. ge 
Be: be Be 








Indicators 


Filename 


IBM International Business Machine Corporation 





IBM International Business Machine Corporation 
IBM Intemational Business Machine Corporation 


43 


File Description Specifications 


Figure 19 (Part 2 of 2). Random Processing of an Indexed File by Key 


Example 5 As each record is read from TRANS, the input transaction _ 
file, the ITEMNO field is used as the key to chain to 


Figure 20 shows the updating of an indexed file. The MASTER during calculations. If the character 2 is in posi- 
indexed file, MASTER, is described as a chained update file tion 64 of the transaction record, the quantity in ADJUST 
to be processed by keys. The key field in MASTER is is added to the ONHAND field of MASTER. If the char- 
ITEMNO, in positions 1-10. The index will be sorted into acter 3 is in position 64, ADJUST is subtracted from 
ascending sequence when processing is complete. ONHAND. If the character 1 appears in location 64 of the 


_ MASTER record, the updated ONHAND field is written _ 
out on its original location in the MASTER record at detail 
output time. 
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Figure 20 (Part 1 of 2). Updating an Indexed File 
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Record Identification Codes 


Punching 
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Output Indicators 











International Business Machine Corporation 
Filename 


International Business Machine Corporation 


Programmer 


IBM Unternational Business Machine Corporation 
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File Description Specifications 


Figure 20 (Part 2 of 2), Updating an Indexed File 


COLUMNS 29-30 (LENGTH OF KEY FIELD OR RECORD 
ADDRESS FIELD) 


Explanation 


Entry 


Length of record key or ADDROUT file 
record 


Number 


Columns 29-30 apply only to indexed disk files and record 
address files. Enter: 


1. The length of the record keys in indexed files and 
record address files that contain limits. 


2. The length of the records in ADDROUT files. 

3. The length of record keys in packed format. 

All of the key fields in the records in an indexed file must 

be the same length. The maximum is 29 bytes; 8 bytes are 
for record keys in packed format. All of the records in an 


ADDROUT file have a length of three. A leading zero is 
not required for entries of 1-9. 


COLUMN 31 (RECORD ADDRESS TYPE) 


Entry Explanation 
A Record keys in unpacked format are used 
in processing and loading indexed files. 

I The file is being processed by means of 
an ADDROUT file or the file is an - 
ADDROUT file. 

P Record keys in packed format are used in 
processing and loading indexed files. 

Blank 1. Relative record numbers are used in 


processing sequential and direct files. 


2. | A-sequential or direct file is being 
loaded. 


3. Records are read consecutively. 


4. The file is not a record address file. 
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PRIMARY AND SECONDARY FILES 


Column 28 
(Mode of Processing) 


Column 31 


Method (Record Address Type) 


Consecutive Blank Blank 


By ADDROUT R | 
Record address Blank 
Sequential By ; Blank 
Key 


Sequential 
Within Limits 


CHAINED FILES 


Column 28 Column 31 
(Mode of Processing) (Record Address Type) 





Method 
Random By R Blank 
Relative 

Record Number 


Random By Key R A 


Blank* 


Direct File Load R 
(Random Load) 





* A direct file load requires an O in column 15 and aC in column 16. 


Figure 21. Specifications Identifying Methods for Retrieving 
Records or Loading a Direct File 


Column 31 applies to files specified as input, update, or 


chained output files. It indicates the way in which records 
in the file are identified (Figure 21). Together, columns 28 
and 31 indicate: 


1. The method by which records are read from the file. 


2. ‘direct file load. 


For ADDROUT files, column 31 must contain an J. 


Note: When building a file with packed keys (P in column 
31), you must specify the key field as packed in output 
specifications. 


COLUMN 32 (FILE ORGANIZATION OR ADDITIONAL 
1/0 AREA) 


Entry Explanation 


I Indexed file. 
T ADDROUT file. 
1-9 Sequential file or direct file. Use two 


input/output areas for the file. (The digit 
two is preferred because a maximum of two 
input/output areas are allowed.) 


Blank Sequential file or direct file. Use one 
input/output area for the file. 
‘ 


Use column 32 to: 


@ Identify the organization of all files except ADDROUT 
files, 


@ Identify ADDROUT files. 


@ Indicate whether one or two input/output areas are 
to be used for sequential files or direct files. 


File Organization 


File organization is the arrangement of records in a file. The 
three types are indexed, direct, and sequential. Files organ- 
ized in these ways are called indexed files, direct files, and 
sequential files, respectively. 


Indexed Files 


An indexed file is a disk file in which the location of 
records is recorded in a separate portion of the file called 
an index. The index and its associated file occupy adjacent 
positions on disk, The index contains the record key and 
record location of every record (Figure 22). 


A record key is the information from the key field of a 
record. The record key can be used to identify the records 
of an indexed file. Record keys are always required in an 
indexed file. Indexed files may be loaded with the keys in 
ascending sequence or keys in non-ascending sequence. 
After a file is loaded in non-ascending key sequence, the 
keys in the index are sorted into ascending sequence. See 
Column 66 of the File Description Sheet for a definition of. 


~ the unordered load function. 


Note: An indexed file in a simulation area on a 3340 or 
3344 disk file cannot be processed as an indexed file. How- 
ever, it can be processed as a sequential file. In this case, 
the index is not used. 
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Records are stored in the data portion 
of the file in the same order in which 
they are read. When a record is stored 
in the data portion, an entry for the 
record is made in the index. After the 
last entry has been made in the index, 
the entries are sorted into ascending 
order according to the record keys, 


Record Key 


! 
| 
D2 D3 D4 DS D6 ; 


Disk Location 





Data 


If the record keys are not in ascending sequence, 
they are sorted into ascending sequence. 


The order of the records in the data portion remains 
unchanged when the entries in the index are sorted. 









oe 
1/D4 | 2/D3 |3/D5 | 4/D6 | 5/D2 |6/D1 }) 


D1 D2 D3 D4 D5 D6 
Index * Data 


“Entries are of the form record-key/disk-location (D1=1st disk location, D2=2nd disk location, and so on) 


Figure 22. Indexed File Organization 
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Direct Files 


Direct files are disk files in which records are assigned 
specific record positions. Regardless of the order in which 
the records are put in the file, they always occupy a speci- 
fic position (a specific disk address). Relative record num- 
bers identify the relative position of a record within the 
file. 


Before a direct file is loaded the entire disk area (a mini- 
mum of one track is allocated) for the direct file is cleared 
to blanks. Spaces are reserved in a direct file for records 
not available at the time the file is loaded (Figure 23). You 
should handle these blank records in your program. 


Sequential Files 


Sequential files are files in which the order of the records is 
determined by the order in which the records are put in the 
file. For example, the tenth record put in the file occupies 
the tenth record position. 


Files other than disk files are always sequential files. 


Additional Input/Output Area 


Normally the program uses one input/output area for each 
file. A second area, however, can be used for sequential and 
direct disk files and non-disk files, specified as input or 
output files in column 15. Additional input/output areas 





Relative 
Record Number* 


cannot be used for console files, table files, demand files, 
or record address files, or for disk files using a shared I/O 
area (Models 10 and 12 only). The devices associated with 
these files can be the disk, MFCU, DISKET, READ42, 
MFCM, and device-independent files for input or output 
files; READO1 for input files only; the printer for output 
files only. If you want two areas to be used for a card file, 
do not specify stacker selection for the records in the file. 
Stacker selection is described under Column 42, Stacker 
Select in Chapter 7. 


The use of two I/O areas may increase the size of the pro- 
gram. Therefore, before you indicate that two areas are to 
be used for a file, be sure that the increase in size will not 
make your program exceed the capacity of your system. 


Additional I/O area cannot be specified for disk files with 

a shared input/output area (column 48 of the Control Card 
Specifications Sheet). If both additional I/O and shared 
input/output areas are specified, additional I/O is dropped, 
and a warning message is given (Models 10 and 12). On the 
Model 15 using Program Numbers 5704-SC2 and 5704-RG2, 
an additional I/O area cannot be specified if file sharing is 
used. 


ADDROUT Files 


When describing an ADDROUT file, you must place a T in 
column 32. The ADDROUT file must be a disk or tape 
file. See Column 28, Mode of Processing for a description 
and example of ADDROUT processing. 


Records are stored on disk in the order 
indicated by the relative record numbers. 
Spaces are left on disk for missing 
records (in this case, records 5 and 7). 


* The programmer usually derives relative record numbers from information in the records. 


Figure 23. Direct File Organization 
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COLUMNS 33-34 (OVERFLOW INDICATOR) 


Entry Explanation 

OA-OG, —_ An overflow indicator is used to condition 

OV records in the file. The indicator specified 
is the one used. 

Blank No overflow indicator is used. 

Columns 33-34 apply to output files assigned to the printer. 

Use these columns to indicate that you are using an over- 

flow indicator to condition records being printed in the file. 

Any overflow indicators used in a program must be unique 

for each output file assigned to the printer. Note that only 

one overflow indicator can be assigned to a file. Do not 

assign overflow indicators to a console file. 


Overflow Indicators 


Overflow indicators are used only with printer files, pri- 
marily to condition the printing of heading lines. If you 
intend to use an overflow indicator to condition output 
lines on the printer, you must assign an overflow indicator 
to the printer file on the File Description Sheet (columns 
33-34). The same indicator must be used to condition all 
lines that are to be written only when overflow occurs. 


If the destination of a space/skip or print operation is a 
line beyond the overflow line, the overflow indicator is 


turned on and remains on until all overflow lines are printed. 


However, if a skip or space is specified that advances the 
form past the overflow line to the first line or past the first 
line on a new page, the overflow indicator does not turn on. 


If an overflow indicator is used as a conditioning indicator, 
it indicates that output is to be performed at overflow time. 
This applies whether or not the line conditioned by the 
indicator is in an AND or OR relationship with other indi- 
cators. However, to get output, all indicator conditions 
specified in an AND relationship must be met. 


The overflow indicator may be set by the SETON or 
SETOF operation code. After all total records have been 
written, however, the indicator is set as it normally is in 
accord with the overflow line. 
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USING OVERFLOW 


When the printer has reached the end of a printed page, 
RPG II language allows you to do one of three things: 


1. Advance to the top (line 6) of the next page and 
continue printing. 


ye Ignore the fact that the end of the page has been 
reached and keep right on printing. © 


3. Print special lines at the bottom of the page and at : 
the top of the new page. 


You automatically get the first option by not assigning an 
overflow indicator. You get the second by assigning an 
overflow indicator and never using it to condition output 
lines. You get the third by assigning and using overflow 
indicators, These three possibilities are described as follows: 


1. For every job you do you must determine how many 
lines will be printed on each page or form. You can 
indicate this by line counter specifications. From 
these specifications RPG II determines which line is 
the overflow line. (The overflow area includes the 
first line past the overflow line to the end of the 
form.) When the overflow line is sensed, an overflow 
indicator automatically turns on and the following 
steps occur: ae 
a. Detail lines are printed (if this part of the program 

cycle has not already been completed). 
b. Total lines are printed if required. 
c. Forms advance to a new page. 
d. The overflow indicator turns off. 


2. If you are not concerned about pages or skipping to 
new pages and want one continuous listing, you must 
make an entry that will cause the automatic handling 
of overflow and advancing of forms to be discontin- 
ued. To cause overflow to be ignored, assign an over- 
flow indicator to the printer file in columns 33-34 of 
a file description specification line and do not 
reference it on output specifications. 


3. . If you are concerned about pages and want certain 
lines to appear on each page, assign an overflow indi- 
cator to the printer file in columns 33-34 of the File 
Description Sheet (Figure 24). Use this same indica- 
tor to condition those lines which you want printed 
on every page. Usually these lines are total lines 

_ which must be printed at the bottom of every page, - 
or heading lines which must be printed at the top of — 
each new page. i 


File Description Specification 


File Addition/Unordered 


Mode of Processing 


Number of Tracks 
for Cylinder Overflow 


Extent Exit 


33 
ae 
z 3 
> 
53 
- OD 
23 
ea 
§s 


File Designation 
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Label Exit 
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Figure 24. Assigning an Overflow Indicator 
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specify a skip to the first printing line on a new page. This 


skip is usually specified on the first heading line you want 


printed on the new page (Figure 25). 


Filename 


In the case where you have specified an overflow indicator 
and are using it to condition output lines, the following 


steps occur when the overflow line (end of page) has been 


sensed: 





a. Detail lines are printed (if that part of the program cycle 


has not already been completed). 
b. Total lines are printed (except at LR time). 











c. Total overflow lines are printed if conditioned by the 





overflow indicator. 
d. Forms advance to the next page if indicated by the skip 











specification on a heading line or total line. 
e. Headings and detail lines are printed, if conditioned by 








overflow indicators. 











Writing Specifications Using Overflow Indicators 


Often you want each page to contain information from 


only one control group. (Information from one group may 
require several printed pages, however.) You might also 


wish each page to have headings identifying the type of in- 
formation on the page. For these cases you need to use- 





both the control level indicators and the overflow indicators. 


Together they condition when headings and/or group infor- 


mation are to be printed. 





Figure 25. Advance Forms to New Page 
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File Description Specifications 


A new page should advance either when the overflow line 
has been reached (the overflow indicator you assigned is on) 
or when there is a change in a control field (L indicator is 
on). You must specify that each indicator causes a new 
page to be advanced by specifying a skip to the first print- 
ing line on a page. If the control level has changed and the 
overflow condition has occurred at the same time, it is 
possible to duplicate an output line (one called for by the 
overflow indicator, the other by the control level indicator). 
A blank page can also appear in your report as a result. 


Figure 26 shows the coding necessary for printing headings 

on every page: first page, every overflow page, and each 

new page to be started because of a change in control fields 

(L2 is on). Line 01 allows the headings to be printed at 

the top of a new page (skip to 01) only when an overflow 
occurs (OV is on and L2 is not on). 


Line 02 allows printing of headings on the new page only 
at the beginning of a new control group (L2 is on). This 
way, duplicate headings caused by both L2 and OV being 
on at the same time do not occur. Line 02 allows headings 
to be printed on the first page after the first record is read. 
This is true because the first record always causes a control 
break (L2 turns on), if control fields are specified on the 
record. (If the first record did not have a control field, 
another OR line would be necessary with a 1P entry in 
columns 24-25.) 


Figure 27 shows the necessary coding for the printing of 
certain fields on every page: a skip to 01 (first line on new 
page) is done either on an overflow condition or ona 
change in control level (L2). The NL2 indicator in line 01 
prevents the line from printing and skipping twice in the 
same cycle. 
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Figure 26. Printing Headings on Every Page 
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Fetching The Overflow Routine 


When the overflow line is reached, the same sequence of 
events always takes place. These were described previously. 
Briefly, remaining detail lines, total lines, and total over- 
flow lines (lines conditioned by the overflow indicator) are 
printed on the page even after overflow has occurred. 
Therefore, you must leave enough room between the over- 
flow line and the actual end of page to have room for all 
these lines to print. 


However, you can run into problems when you do this. For 
example, if a different number of detail or total lines can be 
printed each time, you may not have allowed enough room 
between the overflow line and the end of page to take care 
of all total lines which will print before the forms advance. 
Therefore, printing is done on the perforation. You may 
also have to allow so much room between the overflow line 
and the end of page that often only half a page is used. 


To take care of these problems, you may call for the 
printing of overflow lines and a forms advance any time 
after the overflow line has been reached. Causing overflow 
lines to be printed ahead of the usual time is known as 
fetching overflow. When overflow is caused in this way, the 
following events occur: 


1. All total lines conditioned by the overflow indicator 
are printed. | 


2. Forms advance to new page when a skip to 01 has 
been specified in a line conditioned on an overflow 
indicator. 
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3. Heading and detail lines conditioned by the overflow 
indicator are printed. IBM International Business Machine Corporation 


Program 


Pe 


The line that fetched overflow is printed. 


5. Any detail and/or total lines left to be printed for 
that program cycle are printed. 


Filename 


For the printer file, an F in column 16 on the Output 

Sheet specifies that the overflow routine will be fetched. 
An F can be specified for any total, detail line, or exception 
line except those conditioned by an overflow indicator. 





Figure 28 shows the use of a fetched overflow routine (F 
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Program 
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X = Remove 
Plus Sign 

Y = Date 
Field Edit 
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in column 16). The total lines 03, 09, and 11 can fetch the 
overflow routine. They do this, however, only if the over- 
flow line has been sensed prior to the printing of one of 
these lines. If the overflow indicator is turned on before 
the output line specified in line 03 is printed and if control 
level indicator L1 is on, forms advance to the new page as 
specified by the skip entry in the heading line. The heading 
line and all total lines are printed on the new page. If, how- 
ever, the printing of the line specified in 03 caused the 
overflow indicator to turn on, the following happens: 


1. ‘The line specified in 05 prints on the same page. 
2. The line specified in 07 prints on the same page. 


3. The line specified in 09 fetches an overflow (F in 
column 16) and causes the heading line and all 
total lines (09, 11, 13, and 15) to print on the new 


page. 


Figure 28. Uses of Fetch 
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1f the output lines specified in 09 fetched overflow, line 

11 does not fetch a new page again because an internal 
overflow indicator was turned off after line 09 fetched 
overflow. (The external overflow indicator is not turned 
off at this time.) Setting off the internal overflow indicator 
prevents overflow processing from occurring twice for a 
single physical overflow. (Remember, a line can fetch 
overflow only when the internal overflow indicator is on.) 
Line 11 fetches overflow only if the output line specified 
in 09 causes the overflow indicator to turn on. 


You should fetch the overflow routine (F in column 16) 

only when you feel that (1) this line, when printed, could 
cause overflow and (2) if it did, there would not be enough 
room left on the page to print the remaining detail and/or 
total output lines plus lines conditioned by the overflow 
indicator. 


When more than one printer file is used, fetch overflow 
applies only to the overflow lines associated with the file 
containing the record that specified fetch. 


Note: Fetch overflow cannot be specified when an ovet- 
flow indicator is specified in columns 23-31 on the same 
specification line. If this condition does occur, fetch over- 
flow is not performed. 


Overflow Printing with EXCPT Operation Code 


Overflow indicators cannot condition an exception line, 
but can condition fields within an exception line. The use 
of the EXCPT operation code with exception lines (E in 
column 15 of the Output Sheet) causes only excep- 

tion lines to be printed during calculation time. If the 
overflow line is sensed when an exception line is printed, 
the overflow indicator turns on as usual, but overflow pro- 
cessing does not occur until another exception line condi- 
tioned to print (with fetch overflow specified) is encoun- 
tered. 


The actual overflow output lines (totals and/or headings) 
must be coded as H, D, or T types. The use of fetch over- 
flow will cause the H, D, or T overflow output lines to be 
printed if the overflow indicator is on. The overflow out- 
put lines are printed prior to the printing of the line on 
which fetch overflow is specified. The user may also force 
overflow by issuing a SETON of the appropriate overflow 
indicator prior to the EXCPT operation code, provided 
fetch overflow has been specified. 
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General Considerations 


| . ; 
When using the overflow indicator to condition overflow ( 
printing, remember: 


1. Overflow indicators may be turned on and off by the 
operation codes SETON and SETOF. 


2. Spacing past the overflow line causes the overflow 
indicator to turnon. — 


3. Skipping past the overflow line to any line on the 
new page does not turn the overflow indicator on. 


4. Skipping past the overflow line to a line on the same 
page causes the overflow indicator to turn on. 


5. Askip to a new pagé sound ona line not con- 
ditioned by an overflow indicator causés the overflow 
indicator to turn off. 


Figure 29 shows the setting of overflow indicators during 
the normal overflow routine and during a fetched overflow 
routine for both normal output and exception output. The 
left-hand portion of the graph shows when the indicators 
are on or off in relation to the general program cycle. For 
example, if, during normal output, a detail line is printed 
on the line number specified as the overflow line, the over- 
flow indicator turns on. It remains on until the end of the 

next program cycle. The solid blank lines indicate that the 
indicator is on. The dashes are used to show a connection 
between the end of one cycle and the start of the next. 


COLUMNS 35-38 (KEY FIELD STARTING LOCATION) 


Entry Explanation 


1-9999 _ Record position in which the key field 
_ begins. 


Columns 35-38 apply to indexed disk files only... An entry 
must be made in these columns for an indexed disk file. 
Use them to identify the record position in which the key 
field begins. The key field of a record is the field that con- 
tains the information that identifies the record. The infor- 
mation is used in the index portion of the file. The key 
field must be in the same location in all of the records in 
the file. 


The number you place in these columns must end in column 
38. Leading zeros can be omitted. 
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Figure 29. Overflow Printing: Setting of the Overflow Indicator 


Key fields cannot contain any X‘FF’ characters. Therefore,. 


if the key field is a binary field or is generated by the 
RPG Program you must be certain no X‘FF’ characters 
appear in the key field. 


COLUMN 39 (EXTENSION CODE) 


Entry Explanation 

E Extension specifications further describe 
the file. 

L Line counter specifications further 
describe the file. 


NORMAL OVERFLOW ROUTINE 
NORMAL OUTPUT EXCEPTIOi. OUTPUT NORMAL OUTPUT EXCEPTION OUTPUT 


Overflow 
During 
Total Calc. 





FETCHED OVERFLOW ROUTINE 











Overflow Overtlow Overflow Overflow 
During During During During 
Detail Output | Total Output Detail Calc. Total Calc. 


OF 
OF 
Lines 
Off 


Column 39 applies to (1) table and array files that are to 

be read during program execution, (2) record address files, 
and (3) output files that are assigned to the printer. Output 
files that are assigned to the printer can be described on the 
Line Counter Sheet. Table, array, and record address files 
must be described on the Extension Sheet. 
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COLUMNS 40-46 (DEVICE) 
See Figure 30 for the various devices supported. 


Use columns 40-46 to identify the input/output device to 
be used for the file. All entries must begin in column 40. 
The devices that can be used depend upon the form of the 
tecords (Figure 31). 
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Figure 33 shows the columns that cannot be used for the 
devices named. The shaded columns must be blank for the 
device named in the specification line. (MFCU is MFCUI1 

or MFCU2; MFCM is MFCM1 or MFCM2; PRINTER is: 
PRINTER, PRINTR2, or PRINT84; DISK is DISK, DISK40, 
or DISK45; a blank entry is for device independent input or 
output files ori Model 15. ) 


For discussions of RPG II. support for the IBM 1442 Card 
Read Punch, see JBM System/3 80-96 Conversion Program 
and RPG II Support for the IBM 1442 Card Read Punch 
Reference Manual, SC21-7518. For information about the 
RPG II Telecommunications feature (BSCA), see the JBM 
System/3 RPG II Telecommunications Programming 

a ejerence Manual, SC21- 7507. 


Since the Model 15 sippor is identical to the Models 10 
and 12 support, information concérning the use of the 
3881 can.be found in JBM System/3 Model 10 Disk System 
IBM 3881 Optical Mark Reader Model 1 Program Ref- 
erence and Logic Manual, GC21-5103. 


For the Model 15, information about the 1255 and 1419 
Magnetic Character Readers is found in the IBM System/3 
Model 15 1255/1419 Magnetic Character Reader Ref- 
erence and Program Logic Manual, GC21-5132. 
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Fora descaoiibn of the IBM 3340 Disk Storage Drive, see 
the IBM System/3 3340 Disk Storage Reference Manual, F, 
GA26-1619. \ 


CONSOLE (Printer-Keyboard, Model 10 Systems) 


Figure 31 shows the-file types that can be assigned to the 
printer-keyboard (CONSOLE). More than one printer- 
kéyboard file may be described in a program. 


Records entered from a printer-keyboard file will be treated 
as any other records. Every character to be entered must 
be keyed in. Key the information into the fields as you 
would into a card. Fields must be properly right-justified 
and left-justified by you. You must space where blanks 


appear in a record. The END key must be pressed after 


all characters have been keyed into a record. 






MFCU1 5424 Multi-function Card Unit. The cards are in the primary hopper. Models 10, 12, and 15 
MFCU2 5424 Multi-function Card Unit. The cards are in the secondary hopper. Models 10, 12, and 15 


PRINTER 5203 Printer (Models 10 and 12) 1403 Printer (Models 10, 12, and 15). Models 10, 12, and 15 
On the 5203, if the dual feed carriage feature is present, this entry 
refers to the left carriage. 



























5203 Printer (Models 10 and 12). If the dual feed carriage is present, this entry Models 10 and 12 


refers to the right carriage. -. 


PRINT84 3284 Printer Model 15 


CONSOLE Printer-Keyboard Models 10 and 12 
DISK 5444 Disk Storage Drive . Models 10, 12, and 15 


5445 Disk Storage (Equivalent to DISK40 on models with 3340 or 3344 Direct Models 10, 12, and 15 
Access Storage facilities.) . 2.8 
3410-3411 Magnetic Tape Unit Models 10, 12, and 15 


PRINTR2 








DISK45 





TAPE 










SPECIAL Used for devices not supported by RPG language. Models 10, 12, and 15 





READO1 2501 Card Reader 





i) ae 
No Entry Device independent input or output file | Model 15 | 


DISKET 3741 Data Station or Programmable Work Station (directly attached) Models 10, 12, and 15 









DISK40 3340 Direct Access Storage Facility (Models 12 and 15) or 3344 Direct Access Models 12 and 15 
Storage Facility (Program Number 5704-RG2 only) 


Figure 30. Devices supported . 
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Primary or 
Secondary 
Input Files 


Record Addr- 
ess Con- 
taining 
Record-Key 
Limits 


ADDROUT 
Files 


Disk 
Tape 


Keyed in by 
operator 


SIOC 


TP lines 
Diskette 


Device 
independent 


Cards 


Disk 
Tape 


Keyed in by 
operator 


Diskette 


Device 
independent 


Disk 


Tape 


Cards 


Disk 
Tape 


Keyed in by 
operator 


Diskette 
Sioc 
TP lines 


Device 
independent 


Possible Devices 


MFCU1 or MFCU2, READ42, 
MFCM1 or MFCM2, READO1 


DISK, DISK40, or DISK 45 
TAPE 


CONSOLE or CRT77 


SPECIAL 


BSCA 
DISKET 


MFCU1 or MFCU2, READ42, 
MFCM1 or MFCM2, or READO1 


DISK, DISK40, or DISK45 
TAPE 


CONSOLE or CRT77 


DISKET 


DISK or DISK45 


TAPE 


MFCU1 or MFCU2, READ42, 
MFCM1 or MFCM2, READO1 


DISK, DISK40, or DISK45 
TAPE 


CONSOLE or CRT77 


DISKET 
SPECIAL 


BSCA 





Figure 31 (Part 1 of 2). Device Assignment 
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Table Files 


Chained 
Input Files 


Update Files 
(primary, 
secondary, or 
chained) 


Combined 
Files 
(primary or 
secondary) 


Output Files 


Display Files 


Cards 


Disk 
Tape 
Diskette 


Keyed in by 
Operator 


Device 
independent 


Disk 


Displayed 
output 


SIOC 


Cards 


SiOc 


TP lines 


Cards 


Disk 
Tape 


Displayed 
output 


Printed 
pages 


SIOC 
Diskette 
TP lines 


Device 
independent 


Printed 
pages 


Displayed 
output 





Possible Devices 


MFCU1 or MFCU2, READ22, \ 
MFCM1 or MECM2, or READO1 


DISK, DISK40, or DISK45 
TAPE 


DISKET 
CONSOLE or CRT77 


DISK, DISK40, or DISK45 


DISK, DISK40, or DISK45 


CRT77 


SPECIAL 


MFCU1 or MFCU2, READ42, 
MFCM1 or MFCM2, 


SPECIAL 


BSCA (only for conversational 
reply) 


MFCU1 or MFCU2, READ42, 
MFCM1 or MFCM2 


DISK, DISK40, or DISK45 
TAPE 


CRT77 


PRINTER, PRINTR2, PRINTS4, 
or CONSOLE 


SPECIAL 
DISKET 


BSCA 


CONSOLE 


CRT77 


Figure 31 (Part 2 of 2). Device Assignment 


If the operator presses CNCL (cancel), those characters of 
the record already accepted will be erased; the keying ele- 
‘ment will return to column 1, and the operator may begin 
to key the record in again. If the operator keys in more 
characters than are specified for a record, the record is 
automatically cancelled and the operator is notified to 
key it in again. 


For use of the printer-keyboard in the display operation, 
see Operation Codes, DSP LY, in Chapter 8. 


Note: When the printer-keyboard is used as an input 
device, it is suggested that some output to the printer- 
keyboard occur before input data is to be keyed in. This 
provides a visual indication in addition to the PROCEED 
light that data can be entered on the printer-keyboard. 


CRT/Keyboard Files (Model 15) 


Figure 31 shows the file types that can be assigned to the 
CRT/keyboard. More than one CRT/keyboard file may 
be described in a program. 


A record entered from the keyboard or displayed on the 
CRT will be treated as any other record. The data is dis- 
played on the CRT as follows: 











Update operations 
display data in 
positions 1-279* 





Positions 281-480 
not used by RPG 


*Position 280 reserved for system use. 


Output operations display data 
in positions 1-120 


Input data is displayed as it is entered 
in positions 121-240 


Every character to be entered must be keyed in. Key the 
information into the fields as you would into a card. Fields 
must be properly right-justified and left-justified by you. 
You must space where blanks appear in a record. Data 
may be entered when the message ENTER DATA 
Pn(n=the partition number) appears on the last line of the 
CRT. After all the data is entered, press ENTER to enter 
the data into the system. If an error is made while enter- 
ing data, pressing ERASE INPUT causes those characters 
already entered to be erased and the cursor to reposition 
itself to position 121 for input files or to position 1 for 
update files. If more characters than are specified for a 
record are entered, the keyboard locks. Pressing RESET 
restores the keyboard, allowing you to correct and re-enter 
the record. 


CAUTION 

Only characters in the CRT character set can be displayed. 
Nondisplayable characters not in the X’80’ through X‘BF’ 
range may be changed to displayable characters. Nondis- 
playable characters in the X‘80’ through X‘B F’ range are™ 
control characters that control the display of fields on the 
CRT. For a further explanation refer to the /BM 3270 In- 
formation Display System Component Description, GA27- 
2749. When the CRT is used as an update file, any charac- 
ters changed during the output operation are returned dur- 
ing input as modified displayable characters. For example, 
if the units digit of a negative number is a zero, the internal 
representation is X‘DO’, which is not displayable. This non 


. displayable character is changed to X‘50’ that is displayed 


as the & (ampersand). During an update operation this 
modified displayable character is reread from the CRT. 









Note: CRT input data is specified as positions 1-120 on input specifications. See /nput Specifications, chapter 7. _ 
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For use of the CRT/Keyboard with the DSPLY operation, SPECIAL Device Support 


see Operation Codes, DSPLY, in chapter 8. 
: You can process files using devices not supported by 


RPG II. To do this, you must indicate that the file will 
Printer Files With Dual Feed Carriage Feature (Models 10 be handled by a SPECIAL device (SPECIAL in columns 
and 12 Only) 40-46 of the File Description Sheet). You must also 
| supply a subroutine to perform the I/O operations 
The dual carriage feature allows you to produce two separate required to transfer data between the SPECIAL device 


printer output files in one program. The two output devices and main storage (subroutine name in columns 54-59 of 
assigned to the printer must be named PRINTER and the File Description Sheet). 

PRINTR2. The forms used for the two files are special 

forms such as checks or invoices that are narrower than For a discussion of the file description specifications 
the regular form for your printer. One form is controlled necessary for SPECIAL device support, see Appendix F. 


by the left carriage of the printer (device name PRINTER) 
and the other form is controlled by the right carriage of 

the printer (device name PRINTR2). The two printer files 
are considered as separate output files and must be described 


as such. A minimum of 17 print positions are lost between Device Independent Input Files (Model 15) 

the two forms. Care must be taken, therefore, when . 

describing the location (end position) of output fields, Device Independent Input Files allow you to assign input 
to avoid printing in positions where there is no form. devices during program execution and change input devices 
Numbering of print positions is not affected when dual without recompiling the program. Input devices are 
carriages are used; the first print position for PRINTR2 assigned by a // FILE OCL statement. See Figure 32 for 
depends on where the forms are physically located on an example. 


the carriage. 


// FILE NAME-INPUT ,UNIT-MFCU2 


// FILE NAME-OUTPUT, UNIT-F1,PACK-F1F1F1,TRACKS-10,RETAIN-T 


File Description Specification 


File Type 
File Designation Length of Key Field or 
of Record Address Field 
Record Address Type 
Fitename Type of File 
Organization 
or Additional Area 


Q 
4 
c 
— 
Z 
a 


F/V/S/M/D 


a 
g 
2 
= 
Oo 
= 


10 11 12 13 14/1 20 21 22 26 2 


TLL hie Ine | Qel | biel 
PA Bet ere Bee 


Figure 32. Coding Device Independent Input and Output Files 
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The following rules apply to these files: 


1. 


File Description Specifications (see Figures 33 and 
52 for possible entries) 


@ The DEVICE entry must be blank (column 40-46). 
@ Record length can be 1-9999. 

e Block length can be a multiple of record length. 
Double butteaing is allowed. 


Stacker select entries should not be used. 


- The device you assign to the device independent 


input file when you run your program must be 
different from other unit record input devices used 
in your program. 


Packed or binary input is allowed from supported 
devices. 


FROM file for table load or record address is 
allowed. 


Variable length records are not allowed. 


Multivolume disk files cannot be specified. 


Only sequential file processing is allowed. 


Device Independent Output Files (Model 15) 


Device independent output files allow you to assign output 
devices during program execution and change output devices 


without recompiling the program. Output devices are 
assigned by a // FILE OCL statement. See Figure 32 for 
an example. 


The following rules apply to these files: 


1. 


File Description Specifications (See Figures 33 and 
52 for possible entries) 


@ The DEVICE entry must be blank (columns 40-46). 
@ Record length can be 1-9999, © 

@ Block length can be a multiple of record length. 

A Device independent output file can be specified as 
the TO file for table/array output or as factor 2 of 

a DEBUG operation. 


Stacker select, space, skip, or fetch, specifications 
should not be used. 


Packed or binary output is allowed on devices that 
support this type of data. : 


Card interpretation on the MFCU and MFCM is 
not allowed. 


The device you assign to the device independent 
output file when you run your program must be 
different from other unit record output devices 
used in your program. 


Multivolume disk files cannot be specified. 


Record updating or record addition cannot be 
specified. 


Variable length records are not allowed. 


Only sequential file processing is allowed. 
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File Description Specification 


File Type : : File Addition/Unordered 
File Designation Length of Key Field or Extent Exit Number of Tracks 
End of File ok ecard Recreey Fistd =): for DAM for Cylinder Overflow 
. Symbolic Name of . Number of Extents 
Filename Type of File Device Label Exit Le ; 
; Organization 

: . or Additional Area Core Index 
Continustion Lines - : 


60 61 62 63 64 65 


pololetolelefeloa| 


sp_ | | T=] 





Shaded Columns 
Must be. Blank 





e Figure 33. Columns That Do Not Apply to Device Named 
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The following chart shows the possible devices that may 
be used for device independent input or output files: 


Device Independent Device Independent 
Input Files Output Files 









Device Type of FILE Statement of FILE Statement 
i ee ee 
el ae 


3410/3411 T1, T2, T3, or T4 T1, T2, T3, or T4 


System 


Punch Device PUNCH 


System READER 
Input Device 


System 


Printer Device PRINTER 
3741 3741 3741 


*3340 F1, F2, R1, or R2 Fi, F2, R1, or R2 
D1, D2, D3, or D4 D1, D2, D3, or D4 


“With Model 15 SCP 5704-SC2, these codes can also be specified: 
D31, D32, D33, D34, D41, D42, D43, and D44. 


= 


Figure 34. Continuation Record 












COLUMNS 47-52 


Columns 47-52 are not used. 


COLUMNS 53-65 (CONTINUATION LINES) 
Column 53 

Entry Explanation 

K Continuation record 


Continuation records provide additional information about 
the TAPE file or SPECIAL file being defined. One or two 
continuation records can be specified for each tape file, 
and one continuation record can be specified for each 
SPECIAL file. When specifying a continuation record, 
columns 54-59 (Continuation Line Option) must be 

coded and columns 60-65 (Continuation Line Entry) may 
also need to be coded. Figure 34 shows an example of the 
coding necessary on the File Description Sheet for a 
continuation record. 


A continuation record for DISK, DISK40, or DISK45 will 
provide an additional amount of main storage for the index 
buffer (Model 15 only). 


File Description Specification 


Extent Exit Number of Tracks 
for DAM 

Name of 

Label Exit : 
Core Index 
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COLUMNS 54-59 (CONTINUATION LINES OPTION) 


Entry Explanation 

ASCII Tape file defined as an ASCII (American 
Standard Code for Information Inter- 
change) file. 

BUFOFF Tape input file contains a block prefix. 

Table/ Name of table/array to be used by user- 


array written IOS subroutine. The array name 
name cannot be ASCII, BUFOFF, or INDEX. 
INDEX __ Provide expanded index buffer, in main 
storage for index files (Model 15). 


BUFOFF can only be used for ASCII files. Therefore, if 
BUFOFF is entered, ASCII must also be entered. BUFOFF 
also requires an entry in columns 60-65 (Continuation Lines 
Entry). Array name can only be used if SPECIAL device 
support is specified for the file. 


If INDEX is specified the amount of main storage provided 
for the index buffer can be specified in columns 60-65 
(Model 15 only). This entry applies to all 5444 and 5445 
indexed files except for the index random input or update 
files with no ADD specified, and the index output with no 
ADD specified. | 


COLUMNS 60-65 (CONTINUATION LINE ENTRY) 


‘Entry 


Explanation 
0-99 Length of the block prefix in an ASCII 
tape input file that specifies BUFOFF. 
1-9 — Amount of storage, in sector increments, 


to be provided for the index buffer. 
(Example: 1 sector = 256 bytes, 2 sectors 
= 512 bytes, ..., 9 sectors = 2304 bytes.) 


An entry must be specified i in ‘these columns if BUFOFF 
has been specified in columns 54-59. This entry cannot be 
specified for tape’ output files. The entry must end in 
column 65 (right justified). 
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COLUMN 53 LABELS 


Column 53 for labels is not used. 


COLUMN 54-59 NAME OF LABEL EXIT 


Entry Explanation 


SUBRxx Name of the user-written subroutine which 
will perform the I/O operation for a 
SPECIAL device. (x = any alphabetic 
character.) 

SRyzzz Name of the IBM written subroutine (six- 
character name in library is $$yzzz which 
will perform the I/O operation for a device 
supported by SPECIAL. (y = any of the 
following 15 characters: B, C, D, F, G, H, 
I, L,M, O, P, R, S, T, or U; z = any of the 
following 16 characters: A, B, C, D, F, G, 
H, I, L,M,0,P,R, S,T, or U.) 


Blank No SPECIAL device is being used. 


Note: Subroutines of the type SRyzzz are overlayable. 
Modifications within the subroutine code may or may not 
be present the next time the subroutine is used. 


Columns 54-59 must contain an entry for each data file 
assigned to a SPECIAL deyice. These columns are used to 
specify the subroutine which will perform the input/out- 
put operations for a file assigned to a SPECIAL device. 
The subroutine name entered in columns 54-59 can be 
from four to six characters long. The first four characters 
must be SUBR; the remaining characters can be any 
alphabetic characters. 


COLUMNS 60-65 (CORE INDEX) 


Entry Explanation 

6-9999 Number of bytes reserved for the core 
index and highest added key. 

Blank 


No core index will be built. 


Columns 60-65 apply only to indexed files processed 
randomly using the CHAIN operation code. Core index 
cannot be specified in shared I/O. Entries must be right- 
justified. Leading zeros are not required. You can specify 
up to 9999 bytes for the core index. This will usually pro- 
vide for faster retrieval of records. 


The core index is a table containing entries for tracks in the 
index portion of a data file. Each entry contains a track 
address and the lowest key field associated with the next 
track. Figure 35 shows the layout on disk of the index for 
the indexed file, INDEXT, which contains 1000 records. 
Since all index entries are contained on three tracks, the 
core index for INDEXT shown in Figure 36 contains only 
three entries, one per track. Each core index entry contains 
tne low key on the next track and the track address. 


Use of the core index can significantly reduce the amount 
of time needed to process an indexed file because it enables 
the system to go more directly to the specific record you 
want. With the core index, the system can find a specific 
record by searching only a small part of the file index. 


Without the core index all index entries that precede the 
record you want must be searched. ‘Using the core index 
shown in Figure 35 record 767 can be found in this manner: 


1. Search the core index until the first key field higher 
than record 767 is located. In this instance the key 
is 769, on track C. Since 769 is the low key on track 
C, key 767 must reside on track B. 


Record # 1 Record # 2 
Track A key key key 


Track B Record # 385 Record # 386 Record # 387 
key ° key . key 
Track C Record # 769 Record # 770 Record # 771 


key key key 


Figure 35. Disk Layout of the Index for INDEXT 


Record # 3 








2. Search track B in the file index until key 767 is 
located. 


3. Chain directly to the associated data record. 


In columns 60-65 you specify the number of storage posi- 
tions (bytes) you wish reserved for the core index. Using 
the amount of core storage you specify, the system builds 
the most efficient core index it can. The core index is built 
immediately before your RPG II program is executed. - 


For single volume indexed random add on a 5445 disk, 
you must add one key length to the size of the core index 
you specify. The extra key length will contain the highest 
added key. Use of the save area for the highest key pro- 
vides a significant performance increase, especially when 


the keys being added are in ascending sequence. The 


RPG II program does not need to search the previously 
added keys for duplicates if the key being added is nighet 
than the highest added key in the save area. 


For multivolume indexed random processing on a 5445 disk, 
RPG II automatically reserves the minimum space required. 
to provide two core index entries. In addition, for multi- 
volume indexed random add on a 5445 disk, RPG II auto- 
matically reserves one high key save area per online volume. 


Record # 383 Record # 384 


key © key 


Record # 767 Record # 768 
hey key 


Record #999 Record # 1000 
key key 
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385 XX 769 


[<—13 bytes—o| | je 13 bytes-m| 





Track A address Track B Track C 
(2 bytes) address address 
(2 bytes) (2 bytes) 


Figure 36. Core Index for INDEXT 


For most efficient processing, the core index should be large 
enough to contain one entry (low key and track number) for 
each track of index in the data file. Therefore, the most 
efficient size for the core index is equal to key field length 
plus 2, multiplied by the number of tracks in the file index 
(plus one key length per online volume if a 5445 indexed 
random add). For the indexed file, INDEXT, in Figures 35 
and 36, the entry in columns 60-65 would be 45: 
13 (key length) 
+ 2 (length of a track address) 
15 (length of a core index entry) 
x 3 (number of file index tracks) 
45 (size of core index for 5444) 
+ 13 (if 5445 indexed random add, for highest added key) 
‘58 (size of core index for 5445 indexed random add) 


For 5444 disk, if the storage space you specify in columns 
60-65 is not large enough to contain one entry for each 
track of file index, RPG II may construct a core index con- 
taining one entry for every cylinder of the file index or, 
perhaps, for every other cylinder. However, the entry in 
columns 60-65 will be ignored if there is insufficient space 
for at least two index entries. 


For a 5445 disk, if the storage space you specify in columns 
60-65 is not large enough to contain one entry for each 
_track of file index, RPG II may construct a core index con- 
taining one entry for every other track, every fourth track, 
etc. However, for a single volume file, the entry in columns 
60-65 will be ignored if there is insufficient space for at 
least one index entry (after reserving space for one high key 
save area, if adding records). For multivolume files, the 
entry in columns 60-65 is added to the minimum space 
automatically reserved by the RPG II program. For a more 
detailed description of performance considerations, see the 
IBM System/3 Disk Concepts and Planning Guide, 
GC21-7571. 


COLUMN 66 (FILE ADDITION) 


Entry Explanation 
A New records will be added to the file. 
U Records for an indexed file are to be 


loaded in unordered sequence. 
66 . 


Column 66 applies to sequential and indexed disk files. 
This column indicates: 


1. The program is to add new records to the file (see 
Examples, Example 1). 


2. Records are to be loaded in an unordered sequence 
(see Examples, Example 2). . 


Records added to a sequential file are added at the end of 
the file. To add records to a sequential file, the file must 

be an output file (O in column 15 of the File Description 

Sheet). 


Records added to an indexed file are added at the end of 
the file and entries for the new records are made in the 
index. The index is then reorganized so that the record 
keys (including the new ones) are in ascending order. 


Neither unordered sequence nor file addition in column 66 
can be specified for indexed files from which records are 
read using the sequential-within-limits-emethod. For more 
efficient operation, records added to an indexed file should 
be in ascending sequence. New records may be added to a 
direct file by specifying the file as an update file processed 
consecutively or by the CHAIN operation code. 


After a file has been loaded on disk, it may be necessary to 
add records to the file. Records can be added at detail, 
total, or exception time during the program cycle. When 
records are to be added to an indexed file randomly, the 
records to be added may: 


1. Contain keys that are above the highest presently in 
the file. In this case, the records constitute an exten- 
sion of the file. - 


2. Contain keys that are either lower than the lowest 
presently in the file, or fall between those already 
in the file. 


If records are to be added to an indexed file sequentially: 


1. The key to be added must be lower than the key 
retrieved and higher than the preceding key, or 


2. The file must be at end of file, for single volume 


files only. 


If neither of the above conditions exists a halt occurs; 
otherwise, the record is added. (See Appendix A for a dis- 
‘cussion of halts and operator options.) 


Unordered Load (U in column 66) is specified when an 
indexed file is to be built from records in an unordered 
sequence. After records have been loaded and an index 
built in the unordered sequence, the index is sorted into 
ascending sequence. | 


In Figure 37, combinations of entries in file type (column 
15) and file addition (column 66) show the functions that 
can be performed for indexed files (J in column 32). 


If a large number of records are to be added to the file, the 
time required for the index sort can be decreased by allo- 
cating a special work file. This requires no special RPG II 
coding but does require a special OCL statement. For addi- 
tional information and an example, see the appropriate SCP 
reference manual listed under Related Publications in the 
Preface. 


Examples 
Example 1 


Figure 38 shows how records can be added to an indexed 
disk file. The new records are contained in a card file, 
CARDIN. The file INDEXED is the existing disk file to 
which new records will be added. A printer file, PRINT, 
will provide a report showing all the records in CARDIN, 
with an indication of which records were added to 
INDEXED and which records were not added. 


On the File Description Sheet, an A must appear jn column 
66 for the file INDEXED, and on the Output Sheet ADD 
must appear in columns 16-18 for the new record to be 
added. : 


As defined on the Input Sheet, all the cards in CARDIN 
should have an A in position 80. The code identifies a 
record to be added to the disk file, and this record type is 
assigned indicator 01. On the Output Sheet, notice that 
when 01 is on, the data from the card is written on the disk 
file INDEXED and is also printed on the file PRINT to keep 
a visual report of new records. ) 


Column 15 Column 66 Function 


Load records in ascending key 
sequence to an indexed file. 


O Blank 


Load records in unordered 
key sequence to an indexed 
file. 


Add records to an existing 
indexed file. 


Read records of an indexed 
file without adding new 
records or updating records. 


Read records of an indexed file 
and add new records to the file 
that are not presently there. 
No updating is performed. 


Update records of an indexed 
file without adding new 
records. 


Update records of an indexed 
file and add new records to 
the file. 





*An A in column 66 requires an ADD entry in columns 16-18 of 
the Output-Format Sheet. 


Figure 37. Various Functions Performed on Indexed Files 


File Description Specification 


Mode of Processing 
Length of Key Field or 
of Record Address Field 
Record Address Type 
Type of File 
Organization 


File Designation 


Filename 


or Additional Area 


Figure 38 (Part 1 of 2). File Addition 





Number of Tracks 

for Cylinder Overflow 
Name of 
Label Exit 
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GX27-8090 U/M 050° 


Printed in U.S.A, 





GX21-9094 U/M 050° 


Printed in U.S.A, 
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75 76 77 78 79 80 
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Figure 38 (Part 2 of 2) 
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There may be records in CARDIN that do not belong in 
that file, or some records may have a keypunch error. 
These records are identified on the Input Sheet as not 
having the character A in position 80. These records will 
turn on indicator 02, and are not to be added to the disk 
file INDEXED. On the Output Sheet, the constant 
RECORD NOT ADDED is printed only on indicator 02, 
indicating a record that was not added to the disk file. In 
this manner, there will be a printed report of all records in 
CARDIN, and the records not added to INDEXED are 
identified by the constant RECORD NOT ADDED. 


Example 2 


Figure 39 shows the unordered loading of an indexed disk 
file from an unsequenced input card file. The output file, 
MASTER, is described as an indexed file to be loaded and 
processed by record keys. The U in column 66 of the 

File Description Sheet indicates that an unordered load is 
to be done. The input file, CARDS, is described on the 
Input Sheet as being without sequence. 


The keys from which the index is to be built appear as the 
first eight positions of the output record, As the disk file 
is loaded, the key is extracted from the record and an index 


-entry is built including the location of the record on disk. 


After the entire file has been loaded and an index entry has 
been constructed for each record, the index entries are 
sorted into ascending sequence. 


COLUMN 67 


Column 67 is not used. 


COLUMNS 68-69 (NUMBER OF EXTENTS) 
Entry Explanation 


Blank Single volume file 


1-50 Number of volumes that contain the file. 
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Figure 39 (Part 1 of 2). Unordered Loading of an Indexed File 
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Figure 39 (Part 2 of 2). Unordered Loading of an Indexed File 


The entry must end in column 69. These columns define 
the number of volumes (disks) on which the disk file is 
located. A disk file must occupy consecutive cylinders on 
each volume. For instance, a disk file could not occupy 
cylinders 20-30 and 41-50 on one volume. The file could 
occupy cylinders 20-40 on that volume, or the data in 
cylinders 41-50 could be placed on another volume. 


The number of volumes you can use depends on the mode 
of processing and number of drives used. For single volume 
files the entry in columns 68-69 must be 01 or blank. The 
Number of Extents entry in columns 68-69 must not be 
greater than 01 when sequential processing within limits 

(L in column 28 and A in column 31) or an unordered load 
(U in column 66) is specified for the file. 


For multivolume files, determine the entry as follows: 
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1. Consecutive Processing. A disk file to be processed 


consecutively can be located on a fixed disk, a remov- 
able disk, or both if the entire file is online during 
processing. However, when portions of the file are 
offline during processing, the file must be located on 
removable disks only. To determine the entry in 
columns 68-69 for a multivolume file on 5444 disks, 
see Figure 40. For a multivolume file on 5445 disks, 
the entry in columns 68-69 must be 02 (04 on 

Model 15) if the entire file is online or 02-50 if por- 
tions of the file are offline. The maximum number 
of offline, sequential volumes is 40. When the 
system is running under SCP 5704-SC2, the maxi- 
mum number of offline sequential volumes is 192. 


2. Indexed Sequential or Random Processing by Keys. 
A disk file to be processed indexed sequentially or 
randomly by keys can be located on a fixed disk, a 
removable disk, or both if the entire file is online 
during processing. However, when portions of the 
file are offline during processing, the file must be 
located on removable disks only. To determine the 
entry in columns 68-69 for a multivolume file on 
5444 disks, see Figure 40. For a multivolume file on 
5445 disks, the entry in columns 68-69 must be 02 
(04 on Model 15) if the entire file is online or 02 or 
greater if portions of the file are offline. When the 
system is using SCP 5704-SC2, the maximum number 

- of offline indexed volumes is 96. 


Note: For indexed random processing, the volumes 
must be processed sequentially. However, the records 
on each volume may be processed randomly. 


3. Random Processing by Relative Record Number. A 
disk file to be processed randomly by relative record 
number can be located on a fixed disk, a removable 
disk, or both. To process a multivolume disk file 
randomly by relative record number, the entire file 
must be available to the system at any given time. 
Therefore, the entire file must be online. To deter- 
mine the entry in columns 68-69 for a multivolume 
file on 5444 disks, see Figure 40. For a multivolume 
file on 5445 disks, the entry in columns 68-69 must 
be 02." , 


Multivolume processing cannot be used with shared I/O. 
Additional information on creating and processing multi- 
volume files, including Operation Control Language state- 
ments is contained in the appropriate SCP reference manual 
listed under Related Publications in the Preface. 


COLUMN 70 (TAPE REWIND) 


Entry Explanation 

R Rewind tape at end of file. 
U Unload tape at end of file. 
N Leave tape at end of file. 


Column 70 is used only with tape files to control the re- 
winding and unloading of tapes. This entry specifies what 
the system should do with the tape after the tape files have 
been processed. These entries may be overridden by the 
END parameter on the FILE statement. 


If column 70 is left blank, the tape rewind information 
specified at program execution time is assumed. 


COLUMNS 71-72 (FILE CONDITION) 


Entry Explanation 

U1-U8 The file is conditioned by the specified 
external indicator. 

Blank The file is not conditioned by an external 


indicator. 


















ONE DRIVE | TWO DRIVES 


Maximum 
number of 
volumes 
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Maximum 
number of 
volumes 
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Consecutive processing, or 
indexed sequential or random 
processing by keys (offline— 

removable disks only) 





Consecutive processing, or 
indexed sequential or random 
processing by keys (online— 

removable or fixed disks) 







Random processing by rela- 
tive record number (online— 
removable or fixed disks) 


Figure 40. Number of Volumes Allowed for Multivolume Files 
(5444 Only) 


Columns 71-72 apply to primary and secondary input 
(excluding table input files), update, output, display, and 
combined files. A record address file may be conditioned 

by an external indicator which is off, it will be in end of 

file status. Chained and demand files may be conditioned 

by external indicators. If an output file is conditioned by 

an external indicator which is off, records will not be written 
on that file. Any calculation operations which should not be 
done when the file is not in use should also be conditioned 
by the same indicator. When the indicator is off, the file is 
treated as though the end of file had been reached (that is, 
no records can be read from or written in the file). If a disk 
file is conditioned by an external indicator which is off, the . 
FILE OCL statement for that file should be removed. 


Note: Information on setting external indicators (SWITCH 
OCL statement) can be found in the appropriate SCP refer- 
ence manual listed under Related Publications in the 
Preface. 
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U1-U8 (External Indicators) 


Indicators U1-U8 are external indicators. This means they 
are set prior to processing by Operation Control Language.. 
Their setting cannot be changed during processing. Thus, 
the program has no control over them. 


You may use these indicators as file conditioning indicators. 
They tell whether or not a certain file is to be used for a 
job. For example, you may have a job which one time 
requires the use of two output (or input) files and another 
time the use of only one. Instead of writing two different 
programs (one using one file, the other two), you can con- 
dition a file (in the file description specifications) by an 
external indicator. When the indicator is on, the file is 
used; when it is off, the file is not used. 


If a file is conditioned by an external indicator, output 

data handled by the file can also be conditioned by the 
same indicator. If an input file is conditioned by an exter- 
nal indicator which is off it will be in end of file status. If 
an output file is conditioned by an external indicator which 
is off records will not be written on that file. Any calcula- 
tion operations which should not be done when the file is 
not in use should also be conditioned by the same indicator. 


In addition to using these indicators as file conditioning 
indicators, you may use them: 


1, Tocondition calculation operations, 

2. To condition output operations. 

3. As field record relation indicators (columns 63-64 
of Input Specifications Sheet). 

COLUMNS 73-74 


Columns 73-74 are not used. 


COLUMNS 75-80 (PROGRAM IDENTIFICATION) 


See Chapter 2. 
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FILE DESCRIPTION CHARTS 


The File Description Charts in the following pages (Figures 
41-54) are for: 


1. Disk files, presented by disk file organization and 
processing method. 


2. | MFCU, Console, and Printer files. 


3. Tape files. 


4. . MFCM, 2501, 1442, Device independent, and 
CRT/Keyboard files. 


@ The entries in the chart must be made for the 
processing method and type of file described on 
that line. 


@ The shaded columns must be blank for the file 
described on that line. 


@ The other columns may be required or optional, 

but cannot be indicated on the chart because the 
entries represent information that changes from 
program to program. 


5. Diskette files 


If you are updating an indexed disk file using the CHAIN 
operation code, look at the chart for indexed disk files, 
random processing by CHAIN operation code. Then choose 
the chained update file with or without record addition. 


The entries on the chart must be made for the file you are 
describing. The shaded columns must be blank for that file. 


The remaining columns represent information that changes 
from program to program. For instance, in this example 
these columns are required but may change from one pro- 
gram to another: Filename, Record Length, Length of Key 
Field, and Key Field Starting Location. Optional entries 
are: End of File, Sequence, File Condition, Line, Block 
Length, Number of Extents, and Core Index. 


File Description Specification 


DISK FILES 


File Addition/Unordered 


Core Index 


Continuation Lines 


Name of 
Label Exit 


Organization 
or Additional Area 


Type of File 


j 


Length of Key Field or 
is processed record by record from beginning to end, the file is processed through the index using the sequential by key method. 


t If no record address file is associated with a limits file it is assumed to be processed using the SETLL operation code. 


Notes: 





-* Sequential processing by key or limits must use the file index, which is always arranged in ascending sequence. When an indexed file 
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Figure 41. Processing Methods for/ndexed Disk Files 
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2. Read-only operations are allowed on consecutively processed indexed disk files. 


1. DISK, DISK40, or DISK45 can be specified as the device (columns 40-46). 
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Figure 42. Processing Methods for Sequential Disk Files 
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or DISK45 can be specified as the device (columns 40-46). 
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~File Description Specification 
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Records are inserted or changed in a direct file by defining 
the file as an update processed consecutively, or an update 


file processed randomly by the CHAIN operation code. 
Note: -DISK,:DISK40, or.DISK45 can be specified as the device (columns 40-46). 





z w 
§ “ 
fs HS ==] 





—— & 
RFrEEEF wv 2a 
D>DIDID e858 
z>z 9900 8g 
a <=£ ecaeace FUE 
4 qq aangan Baa 
uw rr aadgaada c OD 
oc OO <itt x~BG 
2 B Fe BERR GSE 
- i ae i i ns 
wn” B o , : a 
a : = aig a: 
= 7 SoE# 
a. es oD 
¥ a See £ 
2 2 SoBe 8 
o = cet ad c 3 
fe SGEwe2BS ra 3 


Figure 43. Processing Methods for Direct Disk Files 
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Figure 44. Record Address Files Located on Disk 





files may be associated with indexed, 


* ADDROUT 


or direct disk files or sequential disk or tape files. 


1442, 


but may be a disk, 
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* Record address files containing record key limits may only be 
associated with indexed disk files 


or DISKET file 


MFCM, MFCU, console, 


, tape, | 
(see charts for MFCU and console files). 


2501, CRT-77 


Note: DISK, DISK40, or DISK45 can be specified as the device (columns 40-46). 
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Figure 45. MFCU Files 
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Figure 46. Console Files (Printer/Keyboard, Models 10 and 12) 
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Figure 47. Printer Files 
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Figure 49. File Description Entries for 3277 CRT/Keyboard (Model 15) 
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Figure 50. File Description Entries for 1442 Card Read Punch 
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Figure 51. File Description Entries for 2501 Card Reader (Model 15) 
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Figure 52. File Description Entries for 2560 MFCM (Model 15) 
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Figure 53 (Part 2 of 2). File Description Specifications for Device Independent Input File (Model 15) 
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Figure 54. Diskette Files 
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Extension specifications are needed to describe the record 
address files, tables, and arrays you may use in your job. 
Enter these specifications on the Extension and Line 
Counter Sheet (Figure 55). 


See Tables and Arrays at the end of the column descriptions 
in this chapter for a complete description of tables and 
arrays including definitions of terms used in this chapter 
and examples of tables and arrays. 


Pre-execution time tables and arrays are described in 
columns 11-45. Compile time tables and arrays are 
described in columns 19-45. If an alternating table or array 
is to be specified with another table or array, it is described 
in columns 46-57 of the same line as the first. A maximum 
of 63 tables and arrays can be used per program. Only 60 
of these tables or arrays may be compile-time tables or 
arrays. 
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Chapter 5. Extension Specifications 


Record address files require entries on the Extension 
Sheet in columns 11-26. 


Figure 58 is a chart showing possible Extension Sheet 
entries. 
COLUMNS 1-2 (PAGE) 


See Chapter Zi 


COLUMNS 3-5 (LINE) 


See Chapter 2. 
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To Fitename Table or 
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From Filename 
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Array Name 
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Format) 


Comments 


Sequence (A/D) 






































Filename 


OL or Channel 
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Number 
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Figure 55. Extension and Line Counter Sheet 
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COLUMN 6 (FORM TYPE) 


An E must appear in column 6. 


COLUMNS 7-10 


Columns 7-10 are not used. 


COLUMNS 11-18 (FROM FILENAME) 


Entry Explanation 

Record The name of the record address file defined 
Address _ on the File Description Specifications Sheet. 
Filename 

Table or Table or array file loaded at pre-execution 
Array time. 

Filename 

Blank 1. Table or array loaded at compilation 


time if an entry appears in Number of 
Entries per Record (columns 33-35). 


2. Array loaded at execution time 
(loaded via input or calculations speci- 
fications) if there is no entry in Num- 
ber of Entries per Record (columns 
33-35). 


Columns 11-18 are used to name a table file, array file, or 
record address file. Filenames must begin in column 11. 


Leave columns 11-18 blank for compile time tables or 
arrays or for arrays loaded via input or calculations specifi- 
cations (execution time array). These columns must con- 
tain the table or array filename of every pre-execution time 
table or array used in your program. More than one pre- 
execution time table or array can be read from the same 
MFCU or diskette file; therefore the From Filename might 
be the same for more than one table or array (this is true 
only for MFCU and diskette files). 
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COLUMNS 19-26 (TO FILENAME) 


Entry Explanation 

Name ofan The file processed via the record 

input or address file named under From Filename. 
update file 

Name ofan The output file on which a table or array 


output file is to be written at end of job. 


Columns 19-26 define the relationship between a file 
named in these columns and a file named in columns 11-18. 
Filenames must begin in column 19. 


If a record address file is named under From Filename, 
columns 11-18, the name of the primary or secondary file 
that contains the data records to be processed must be 
entered in To Filename, columns 19-26. 


If you wish a table or array to be written or punched, use 
columns 19-26 to enter the filename of the output file you 
will use to do this. This output file must have been previ- 
ously named in the file description specifications. Execu- 
tion time tables/arrays cannot be written at end of job. 
Leave columns 19-26 blank for execution time tables/arrays 
or if you do not want the table or array written or punched. 


If a table or-array is to be written or punched, it is auto- 
matically written or punched at the end of the job after all 
other records have been written or punched. 


Since the table or array will be written or punched in the 
same format in which it was entered, you may want to re- 
arrange the output table or array through output-format 
specifications. You may format table or array output by 
using exception lines to write out one item at a time (see 
Operation Codes, Exception in Chapter 8). Tables or arrays 
will be written or punched under RPG II control only after 
all records have been processed (Last Record indicator is 
on). 


Note: Ifa table or array is to be written to a printer file 
at the end of a job, the last Output specification should 
be a space or skip to the line at which table or array 
output should begin. 


COLUMNS 27-32 (TABLE OR ARRAY NAME) 


Entry Explanation 

Table or Name of a table or array used in the 
Array program. 

name 


y 


Use columns 27-32 to name your table or array. No two 
tables or arrays may have the same name. The name can be 
from one to six characters long and must begin in column 
27, and must be a valid RPG II name. If alternating tables 
or arrays are being described, this must name the table or 


array whose entry is first on the input record (see Example). 


Table Name 


Every table used in your program must be given a name 
from three to six characters long beginning with the letters 
TAB. Any name in these columns which does not begin 
with TAB is considered an array name. This table name is 
used throughout the program. However, different results 
can be obtained depending upon how the table name is 
used. Factor 2 on the Calculation Sheet can contain the 


name of a table to be searched and the result field can con- 
tain the name of another table from which an associated 
function is to be obtained. When the table name is used in 
Factor 2 or Result Field (on the Calculation Sheet) with 
LOKUP operation, it refers to the entire table. When the 
table name is used with any other operation code, it refers 
to the table item last selected from the table by a LOKUP 
operation. If the table name is used before any successful 
look-ups are performed, the first table item is referenced. 
See Operation Codes, Lookup in Chapter 8 for more infor- 
mation. 


Tables are processed in the same order as they are specified 
on the Extension Sheet. Therefore, if you have more than 
one table, remember the tables are to be loaded in the same 
order as they appear on the sheet. 


Tables cannot be used with an index (see Tables and Arrays, 
Array Name and Index in this chapter). 


Array Name 


Every array used in your program must be given a name 
from one to six characters long. An array name cannot 
begin with the letters TAB. This array name is used 
throughout the program. See Tables and Arrays after the 
column description in this chapter for complete informa- 
tion. 
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Example 


Figure 56, insert A, shows two related tables (TABA and 
TABB) described in alternating form on a table input card. 
An item for TABA appears first. Thus, in insert B, TABA 
is named in columns 27-32 of the Extension Sheet: TABB 
is named in columns 46-51. 


COLUMNS 33-35 (NUMBER OF ENTRIES PER RECORD) 


Entry Explanation 
1-999 Number of table or array entries found in 
each table or array input record. 

Indicate in columns 33-35 the exact number of table entries 
in each table or array input record. Every table or array 
input record except the last must contain the same number 
of entries as indicated in columns 33-35. The last record 
may contain fewer entries than indicated, but never more. 


When two related tables are described, each table input 
record must contain the corresporiding items from each 
table written in alternating form. These table items are 
considered as one entry (see Example). The number entered 
must end in column 35. Corresponding items from related 
tables must be on the same record. If there is room, com- 
ments may be entered on table input records in columns 
following table entries. 
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- When loading an array the following must be considered: 


1. Toloada pre-execution time array, the array filename 
must be entered in columns 11-18 and an entry must 
be made in Number of Entries per Record (columns 
33-35). 


2. To load an array at compile time, the filename entry 
(columns 11-18) must be blank, but an entry must 
be made in Number of Entries per Record (columns 
33-35). 


3. To load an execution time array (via the input and/or 
calculations specifications), the From Filename 
(columns 11-18) and the To Filename (columns 
19-26) eritries must be blank and the Number of 
Entries per Record (columns 33-35) must be blank. 


Example 


Figure 5 6, insert A, shows the table items for the two 


‘ related tables, TABA and TABB. The corresponding items 


in TABA and TABB are considered one entry. Even 
though there are 14 table items on the card, there are only 
7 table entries. Insert B shows the Extension specifications 
which describe TABA and TABB as related tables. 


TABA TABB* 
(account number) | (amount due) 


— — Corresponding 











123 48 6 7 SB B W ft 12 13 4 1S 16 17 w 1 20 21 22 23 24 29 26 27 20 20 30 91 92 


33-34 3S 396.37 36 39 40 41 42 43 446 45 46 47 46 48 50 Si 52 53 54 SS S657 SB S52 GO GI 62 63 64 


Table Items 6S 66 67 68 6B 70 71 72 73 74 7S 76 77 78 78 OO B1 O2 63 04 BS 86 87 60 OD 90 Dt DL 02 94 95 06 
00039.00 
$7 98 99 100 101 102 103 104 105 106 107 108 108 110 TH MZ WD 14 MS tO 17 NO NO 120 tm 2 123 126 125 126 127 126 
B B 
: F A 1 2 A 
00156.72 *Decimals in TABB 8 (OT, Ma ee ee 
are for illustration < TAB , TAB TAB , TAB , TAB TAB4 
: 1 ! t 
0001 7.98 only. Decimal 1 '2s34 s', 7 8 wo tt aha 14 A. whe 19 20 21 22 23 alas 26 27 28 20°99 31 32 1 
points are nota . 5 7 
00002.97 part of table or —_——_—————e | = _ asso" 
array input data. 4 TAB ! aa TAB + TAB, TAB 14 TAB ; 
00290.98 bs 33M 3S sey 30 39 40 ala 43-44 45 46 47 alas SO S1 SZ ssa SS Sé 5? Se 59 soles 62 A, x 
A A 
8 ——e——_— oa) 8 
00579.95 4 4 TAB 1 TAB 1 TAB , 4 
2 ti B ! A t B 1 2 
ON V ostes oy 60 e970 71 72/93 70 75 78 rian 28 00 #1 ez 02 eales 06 07 08 09 90 01 02 99 04 95 oe | 
5 7 18M 3700 
pomnens reson The corresponding items from the related 
tables are punched in alternating format on 
the table input card. The corresponding 
items from the two related tables are 
considered as one entry. 
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Figure 56. Related Tables 
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COLUMNS 36-39 (NUMBER OF ENTRIES PER TABLE 
OR ARRAY) 


Entry Explanation 


1-9999 Maximum number of table or array entries. 
Use columns 36-39 to indicate the maximum number of 
table items which can be contained in the table named in 
columns 27-32, or the maximum number of array items 
which can be contained in the array named in columns 
27-32. This number may apply to one table or to two 
alternating tables. If alternating tables are described, 
corresponding table items are considered one entry. Any 
number entered in these columns must end in column 39. 


If your table or array is full, this entry gives the exact num- 


ber of items in it. However, if the table or array is not full, 
the entry gives the number of items that can be put into it 
.(Figure 57). A table or array that is not full is known as a 
short table or array. 


Since the number of items for two related tables or arrays 
must be the same, the entry in these columns also gives the 
number of items in a second table or array (columns 46-51). 


COLUMNS 40-42 (LENGTH OF ENTRY) 


Entry Explanation 


1-256 Length ofa table or array entry. 

Use columns 40-42 to give the length of each entry in the 
table or array named in columns 27-32, The number 
entered must end in column 42, For numeric tables or 
arrays in packed decimal format (see Column 43, Packed or 
Binary Field), enter the unpacked decimal length in columns 
40-42. For numeric tables or arrays in binary format, enter 
the number of bytes required in storage for the binary field. 
For a 2 character binary field, the entry in columns 40-42 

is 4; for a 4 character binary field the entry is 9. 


All table items must have the same number of characters, 

It is almost impossible, however, for every item to be the 
same length. Therefore, add zeros or blanks to the front of 

_ numeric items to make them the same length and add blanks 
to alphameric items. For alphameric items, blanks may be 
added either before or after the item (see Examples, 
Example 1). 
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TABPRT TABAMT* 


(Part Number) 


TABAMT* 
(Price) 


TABPRT 


(Part Number) (Price) 





If this data is loaded, TABPRT 
and TABAMT will not be full. 


If this data is loaded, TABPRT | 
and TABAMT will be full (20 
entries fill the table). 


*Decimals are for illustration only. 
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Pag 


Table or 
Array Name 
{Atternating 

Format) 






Table or 
Array Name 1?! 





Filename 


This entry indicates that TABPRT and TABAM 
maximum of 20 entries. 


Figure 57. Table Entries (Number per Table) 


If two related tables or arrays are described on one Exten- 
sion Sheet, the entry in columns 40-42 applies to the table 
whose item appears first on the record (see Examples, 
Example 2). 


The maximum length of a numeric item is 15 characters. 
The maximum length of an alphameric item is 256 char- 
acters. See Jables and Arrays in this chapter for more 
information. 


Examples 


Example 1: The following table, called TABMO, lists the 
months of the year. The name SEPTEMBER, having nine 
characters, is the longest entry. Because the lengths of the 
entries must be the same, blanks are added to the remaining 
names to make each of them nine characters long. 


JANUARY 


FEBRUARY PEURUARGE All entries must 
MARCH 
ABRIL MARCH bbbb have the same 
MAY APRILbbbb length. Those 
JUNE MAYbbbbbb items that are 
JULY JUNE bbbbb not as long as 
AUGUST JULY bbbbb 9 
SEPTEMBER AUGUST bbb the longest 
OCTOBER SEPTEMBER item must be 

OCTOBERbb : 
NOVEMBER NOVEMBERb padded with 
DECEMBER 

DECEMBERb blanks (b). 





List of Months TABMO 


Example 2: The following shows entries in a table input 
card for related tables, TABC and TABD. Each item in 
TABC is two characters long; each item in TABD is six 
characters long. Since TABC appears first on the card, its 
length (2) is specified in columns 40-42. The length of items 
in TABD is indicated in columns 52-54. 
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Entry 






Decimal Positions 


“NSOPT-“NADPD-NAO 


! ' 
’ D 1Cj D iC D ! 
tot I ' 


‘ 
33-34 3S 36 37 38 39 40 41 42 43-44 45 46 47 48 49 SO 51 52 53 S458 56 57 58 59 60 61 62 63 64 


Cc! 






The length of the table item which appeared first 
on the table input card is entered in columns 40-42. 





8 
A 
8 
4 
2 
1 
8 
A 
8 
4 
2 
1 
8 
A 
8 
4 
2 
1 


€S 06 67 68 68 70 7) 72 73:74 7S 7H 77 76 79 80 B81 G2 B39 B4 BS 06 67 BO 90 90 91 92 93 94 95 96 
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COLUMN 43 (PACKED OR BINARY FIELD) 


Entry Explanation 


Blank Data for table or array is in unpacked deci- 
mal format or is alphameric. This is used for 
execution time arrays (must be blank for 
compile-time tables or arrays). 


P Data for table or array is in packed decimal 
format (pre-execution time tables or arrays 
only). 

B Data for table or array is in binary format 
(pre-execution time tables or arrays only). 

For a complete discussion of unpacked decimal, packed 
decimal, and binary data representation, see Column 43, 
Packed or Binary Field in Chapter 7, Input Specifications. 


COLUMN 44 (DECIMAL POSITIONS) 


Entry Explanation 
Blank Alphameric table or array. 
0-9 Number of positions to the right of the 


decimal in numeric table or array items. 


Column 44 must always have an entry for a numeric table 
or array. If the items in a numeric table or array have no 
decimal positions, enter a 0. 


If two alternating tables or arrays are described in one file, 
the specification in this column applies to the table con- 
taining the item which appears first on the record. 


COLUMN 45 (SEQUENCE) 


Entry Explanation 

Blank No particular order. 
A Ascending ndee 

D Descending order. 


Use column 45 to describe the sequence (ascending or 
descending) of the data in a table or array. Execution time 
arrays are not checked for sequence, but column 45 must 
contain an entry if high or low LOKUP is to be used. 


When an entry is made in column 45, the table or array is 
checked for the specified sequence. If a pre-execution time 
table or array is out of sequence, an error occurs and 
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the program halts immediately. The program can be restarted 
from the point where it halted if you do not want to correct 
the out-of-sequence condition; however, if you do correct 
the out-of-sequence condition, program execution must be 
restarted from the beginning. 


Ascending order means that the table or array items are 
entered starting with the lowest data item (according to the 
collating sequence) and proceeding to the highest. Descend- 
ing order means that the table or array items are entered 
starting with the highest data item and proceeding to the 
lowest. 


If alternating tables or arrays are described in one file, the 
entry in column 45 applies to the table or array containing 
the item which appears first on the record. 


When you are searching a table or array for an item 
(LOKUP) and wish to know if the item is high or low com- 
pared with the search word, your table or array must be in 
either ascending or descending order. See Operation Codes, 
Lookup in Chapter 8 for more information. When a speci- 
ific sequence has been specified, RPG II checks the data in 
the table or array to see if it really is in that sequence. In 
checking for sequence, an equal condition is considered 
valid. This allows you to pad the beginning of the table 
with zeros or blanks, or to pad the end of the table with 
9’s (assuming ascending sequence). 


COLUMNS 46-57 


Use columns 46-57 when describing a second table or array. 
For compile time and pre-execution time tables and arrays, 
these columns are used to describe a table or array that is 
entered in alternating format with the table or array 
described in columns 27-32. For execution time arrays, 
these columns may be used to describe another table or 
array which is loaded independently of the array described 
in columns 27-32. All fields in this section have the same 
significance and require the same entries as the fields with 
corresponding titles in columns 27-45. See the previous 
discussion on those columns for information about correct 
specifications. 


COLUMNS 58-74 (COMMENTS) 


Enter any information you wish in columns 58-74. The 
comments you use should help you understand or remember 
what you are doing in each specification line. Comments 
are not instructions to the RPG II program; they serve only 
as a means of documenting your program. 


COLUMNS 75-80 (PROGRAM IDENTIFICATION) 


See Chapter 2. 
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@ The shaded columns must be blank for the file named. 
@ For tables and arrays, columns 19-26 and columns 46-57 are optional. 
@® Execution arrays are loaded via input and/or calculation specifications. 


e For record address files, columns 11-26 must have entries. 


Figure 58. Possible File Entries for Extension Specifications 
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TABLES AND ARRAYS 


Tables and arrays are systematic arrangements of data items 
having like characteristics; that is, the same field length, data 
type (alphameric or numeric), and number of decimal posi- 
tions. Both tables and arrays are described on the Extension 
Specifications Sheet. See Figure 58 for possible entries. 
Important differences exist, however, in defining and 
processing tables and arrays. . 


Tables are used during the execution of a program much 

like a shipping clerk would use a rate table for obtaining 

freight rates. The clerk might scan the table for the desired 
city, then select the corresponding rate: Tables are refer- _ 
enced by searching the table one item at a time for a speci- 
fic item of data with a unique identifier. Table names must 
begin with the letters TAB. . 


Arrays can also be searched for a uniquely identified data 
item. Unlike tables, however, array items can also be refer- 
enced by their relative position to other items. This is done 
by indexing to a specific item in the atray. Also, an entire 
array can be processed sequentially by using the array name 
only once in certain calculation operations. Array names 
must not begin with the letters TAB. . 


Several terms are used to describe tables and arrays: 


© Compile time tables and arrays are compiled with the 
source program and become a permanent part of the 
object program. A compile time table or array can be 
permanently changed only by recompiling the source 
program with the revised table or array. 


@ Pre-execution time tables and arrays are loaded with 
the object program before actual execution of the 
RPG II program begins; that is, before any input files 
are read, calculations performed, or output functions 
performed. — | 
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e@ Execution time arrays are loaded or created by input or 


calculation specifications. They are loaded after actual 
execution of your RPG II program has begun (read in 
as input data or created during calculations in your pro- 
gram). An execution time array is also described on the 
Extension Specifications Sheet. 


@ Related tables and arrays are tables and arrays that are 


used together. The items in each table or array are 
called corresponding items; each item in the second 
gives additional information about its corresponding 
item in the first. In Figure 59, TABA and TABB are 
related. An item in TABA gives a part number, the 
corresponding item in TABB gives the part cost. Al- 
though all items within one table or array must have the 
same characteristics, corresponding items of related 
tables or arrays may have different characteristics. 
Related tables and arrays do not have to have the same 
number of entries unless they are described in the same 
extension specification. 


Short tables and arrays are those in which not all of 

the entries contain data. The unused parts of numeric 
tables and arrays are filled with zeros; the unused parts 
of alphameric tables and arrays are filled with blanks. 
You usually create short tables or arrays when you have 
only a few table or array items available when building 
the table, but know that more items will soon be in- 
cluded. Short tables and arrays must have at least one 
entry. 


Full tables and arrays are those in which all possible 
entries contain data. 


TABA TABB 
345126 


38A473 


39K146 


40B125 


410043 


42D893 


43K532 


44M111 


45P673 


46C732 





123-4 8 6 7 8 9 WI W 19 IS 6 17 W 19 20 21 22 23 24 23 26 27 28 29:30 91 32 
33 34 35 36 37 38 39 40 4) 42 43 44 43 46 47 48 49 SO S) S2 53 54 SS S6 S7 SB SS GO 61 62 63 64 
6S 66 67 68 6D 70 71 72 73:74 7S 76 77 78 79.80 O1 02 83 SA BS 06 G7 BB 89 20 91 92 93 94 95 96 


87 90 99 100 101 102 103 104 105 106 107 108 108 MO IH MZ M3 M4 HS 196 117 MB MD 120 121 22 123 126 125 126 127 120 


t 
TABA | TABB | TABA : TABB | TABA !6 
> oto4 2 ! 2 ss 
123 4 5S 6 7 @© S OW WM 12 139 64 15 HB 17 16 19 20 2 22 23 24 25 26 27 28 29:90 HH 32 
Tass | Tasa | TaBB | TABA | TABB 
3 4 | 4 | 5 
33 34 359 36 37 38 39 40 41 42 43 44 4S 46 47 46 49 SO $i S2 S53 54 55 56 57 SB S960 61 62 63 64 
TABA | TABB | TABA | TABB 
6 | 6 7 7 
€5 66 67 6@ 69 70 71 72:73:74 75 76 77 78 79 OO 81 G2 G3 84 6S BE G7 BS 89 90 91 92 9) 94 95 96 
18M 3700 


i=} 
A 
8 
4 
2 
1 

8 
A 
8 
4 
2 
1 

B 
A 
8 
4 
2 
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(c) TABA and TABB described in alternating format. 
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33 34 33 36 37 38 39 40 41 42 43 44 45 46 47 40 49 50 5) 52 53 54 5S 56 57 50 59 6O 6) 62 63 64 






63 66 67 68 69 70 71 72:73 74 75 76 77 76 79 80 61 02 83 04 85 06 87 08 89 90 91 92 93 94 95 96 






87 98 99 100 108 102 103 104 105 106 107 108 108 NO I MZ M3 14 MS 16 1:7 MO NH tO 120 2 123 124 175 126 127 128 


TABA | TABA | TABA | TABA | TABA 
1 2 3 4 5 


2 3 4 S$ 6 7 & H W H 12 13 14 15 G 17 18 I 20 2 22 23 24 25 26 27 28 29 30 31 32 


TABA| TABA | TABA | TABA |} TABA 
6. 7 8 9 10 


33 34 35 36 37 38 39 40 41 42°43 44 45 46 47 48 49 SO 81 52 53 54 SS 56 57 SO 59 GO 61 62 6) 64 








“NSOPT“NADPT-NAOPDD 





6S 66 67 68 69 70 71 72 73:74 TS 76 77 78 79 8O B1 82 83 B4 BS BE S87 OS 09 90 91 92 93 94 95 96 










$23 43 6 7 8 HS Witt t2 13 4 1S 1 17 18 





19 20 21 22 23 24 25 26 27 20 29:30 31 32 


32 34 3S 3 37 38 39 40 41 42 43 44 45 46 47 48 49 50 5) 52 53 54 55 56 57 SB SD 6O 61 62 63 64 








63S 66 67 68 69 70 71 72 73:74 7S 76 77 78 79 OO 81 82 83 84 BS OE G7 BS BS 90 91 92 93 B4 95 96 





$7 98 $9 100 101 102 103 104 105 106 107 108 108 MO In 12 13 14 115 16 117 MB M9 120 620 2 123 124 125 126 127 128 
TABB TABB TABB TABB {TABB 
1 2 3 / | 5 


1 23 485 6 7 8 WH 12 13 14 15 BG 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 


TABB TABB TABB TABB 
6 7 8 9 


33-34 3S 36.37 38-39 40 41 42 43 44 45 46 47 48 49 50 5) 52.53 54 5S 56.57 58 59 GO 61 62 69 04 


TABB 
10 


65 66 6? 68 69 70 71:72 73:74 75 76 77 786 79 BO 61 82 03 54 BS BE B7 BE 89 90 Bt 92 93 94 95 96 


H“NSOPD-“NSAOPD-NAOPD 
“NFOPT-NSOPT-NS5O0P 0 
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TABA and TABB described as separate tables. 





123 4 S$ 6 7 G6 H W ID 12 13 % 1S 16 17 18 18 20 21 22 23 24 25 26 27 28 29 30 31 32 
33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 40 49 SO 51 52 53 54 55 56 SSO SS CO 61 62 63 64 
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! ' 
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Figure 59 Related Tables (TABA and TABB) Described Separately and Alternately 


Extension Specifications 95 


Creating Table or Array Input Records 


When creating compile-time or pre-execution time tables 

or arrays, the table and array data must be recorded accord- 
ing to certain rules. In the following list of rules, the term 
entry refers to one element in a single table or array, or to 
corresponding items of related tables or arrays. 


Rules 


1, The first table or array entry for each record must 
begin in position 1. 


2. Anentire record need not be filled with entries. In 
this case, blanks or comments can be included after 
the entries. (Figures 60 and 61 show a table input 
record and extension specifications for alternating 
tables. Note that three blanks appear between the 
last table entry and the comment.) | 


3. Each record, except the last, must have the same 
number of entries. You may want to place just one 


entry on each record or as many entries as the record 
can hold. 


4. | Anentire entry must be on one record. It cannot be 
split. Thus the length of a single entry is limited to 
the maximum record length for the device. If related 
tables or arrays are used, corresponding items must 
be on the same record and, together, cannot exceed 
maximum record length for the device. 


5. Related tables or arrays can be described separately 
or in alternating format. Alternating format means 
that the corresponding items are considered one table 
or array entry. Figure 59 shows ways in which , 
related tables or arrays can be described. 


6. The number of table and/or array names used in a 
program must be no more than 60. 


96 


Packed Data To/From Table/Array 


The following examples show results of loading arrays from 
packed data fields. This applies to pre-execution time 
tables and arrays only. 


With one-byte array elements: 
Packed Input Data 
ee 


IF] 2F| 3e] 4F| SF] 6F| 


length = 1 byte 
[Fi] F2] F3] F4] FS] Fé) 
eNO 


Array Data 


a 


With three-byte array elements: 


Packed pea aes Data 


ECOL 101, 2F|37,6F[50! 2D) 


length = Z none 


length = 3 bytes 


FO, F1, F2} F3, F7, Fé] F5, FO, D2 
a 
Array Data 


Figure 61 shows an example of packed data in a pre-execu- 
tion time array. The from file must be a device that sup- 
ports packed data. The packed fields must be four bytes 
long. 


Table Entries 


34J12638A47339K14640B12541C04342 


9 23 4 5 6 7 6 F 10 MH 12 13 14 IS 16 17 18 19 20 21 22 23 24 25 26 27 28 29:30 31 32 


D89343K33244M}1 145P67346C73247L1 
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Figure 60. Input Record for Alternating Tables, TABPAR and TABID 
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Figure 61. Extension Specifications for Alternating Tables, TABPAR and TABID 
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Defining Tables and Arrays 


All tables and arrays are described on the Extension Sheet. 
One line is used to describe one set of table or array input 
records. If only one table or array is described, columns 
11-45 are used, If alternating tables or arrays are described 
on one set of input records, columns 46-57 are used to 
describe the second table or array. If pre-execution time 
tables and array are being described, entries in columns 
11-18 and 27-45 are required, as described in the first part 
of this chapter. Columns 19-26 are used if the table or 
array is to be written or punched at the end of the job. 


Tables and arrays can be specified in any sequence. Com- 
pile time and pre-execution time tables and arrays can be 
mixed. Remember the sequence in which tables and arrays 
are specified on the Extension Sheet determines the order 
in which they must be loaded at the start of the job (see 
Loading Tables and Arrays). 


RPG EXTENSION AND LINE COUNTER SPECIFICATIONS 
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Figure 62 shows the necessary extension specifications for 
each type of array. Line 1 specifies a compile time array, 
ARRAYC. This array has a total of eight elements (three 
elements per record). Each element has a length of 12 posi- 
tions, including four decimal places. Line 2 specifies pre- 
execution time array, ARRAYE, to be read from file 
CARDINP. ARRAYE has 250 alphameric elements (12 
elements per record); each element is 5 positions long and 
is equal to or higher than the previous element in collating 
sequence. Line 3 specifies an execution time array, 
ARRAYI, to be read from input records. ARRAYI has ten 
numeric elements each ten positions long. 


Compile time and pre-execution time arrays (lines 1 and 2) 
can include entries in columns 19-26 (To Filename) and in 
columns 46-57 (to describe an alternating array). Execution 
time arrays cannot have To Filename and alternating array 
specifications. | 


Loading Tables and Arrays 


Tables and arrays can be loaded at compilation time or pre- 
execution time. When loaded at compilation or pre-execution 
time, the entire table or array is loaded. Arrays ¢ can also be 
loaded at execution time. 
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Figure 62. Specifications for Three Types of Arrays 
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Table or Length 
Array Name | of 
(Alternating 

Format) 


Comments 


Decimal Positions 
Sequence {A/D} 


Decimal Positions 


Sequence (A/D) 


Compilation Time 


Tables and arrays loaded at compilation time are compiled 
along with the RPG II source program. They become a part 
of that program. Rules for loading tables and arrays at com- 
pile time are as follows: 


1. ‘The table or array records must follow the RPG II 
source program. 


2. Arecord with **p (blank) in positions 1-3 must 
appear before each table or array entered. (Any 
record with these characters in positions 1-3 will 
be treated as a delimiter, so do not use these char- 
acters as the first three characters on a data record.) 


3.  /* record must appear at the end of the last compile- 
time table or array (followed by a // CEND statement 
if compiling from the source library). 


4. The tables and arrays must be loaded in the same 
order as described on the Extension Sheet. 


5. |Acompilation time array must have entries in columns 
33-35 of the Extension Sheet and must not have en- 
tries in columns 11-18 of the Extension Sheet. 


6. The tables and arrays must not be packed or binary. 


Figure 63 shows the placement of compile time tables and 
arrays in relation to RPG II source specifications. 


Pre-execution Time 


Pre-execution time tables and arrays are not part of your 
source program. They are used by the object program like 
any other data file. 


Rules for loading tables and arrays at pre-execution time are 
as follows: 


1. The table or array must be loaded before any other 
processing is done. 


2. A/* record must follow every pre-execution time 
table or array. 


Alternate Collating 
( Sequence Specifications 


Source Deck 





ns 


Bb =Blank > 
———=—-== Optional 


Figure 63. Placement of Compile-Time Tables in Relation to RPG II Source Specifications 
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3. If two or more tables or arrays are loaded, they must 
be loaded in the same order as described on the 
Extension Sheet. 


4. If errors are encountered during loading, additional 
information about the error will be displayed on the 
printer-keyboard if it has been defined as the log 
device. . 


5. A pre-execution time array must have entries in col- 
umns 11-18 and 33-35, and may have entries in 43 
and 55 if appropriate. 


Execution Time 


If you are loading an array from information in input 
records (execution time array), you must describe that 
information in your input specifications. How the entries 
are made depends on whether the array information is con- 
tained in one or more than one record. Any type of array 
(compile time, pre-execution time, execution time) can be 
described on the input specifications. 


Execution time arrays are not checked for sequence, but 
column 45 (sequence) must contain an entry if high or low 
LOKUP is used. . 


RPG EXTENSION AND LINE COUNTER SPECIFICATIONS 
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Extension Specifications 
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Form Type 


If an execution time array is to be read in packed or binary 
format, an entry should be given in column 43 of the Input 
Sheet. In this case, the From and To columns on the Input 
Sheet should define the positions the array occupies in the 
record in the packed or binary format. The unpacked 
decimal length of each array element is defined on the 
Extension Sheet. An execution time array must not have an. 
entry in columns 11-26, 33-35, 43, and 46-57 on the 
Extension Sheet. 


When reading packed information into an array from 
input records, each element of information is read as if 
it were an individual field. 


Array Information in One Record 


If all of the array information is in one record, it can occupy 
consecutive positions in the record or be scattered through- 
out the record. 


If the array elements are consecutive on the input record, 
they may be loaded with a single input specification. Figure 
64 shows an array, INPARR, of six elements (twelve posi- 
tions each) being loaded from a single record from the file 


~ ARRFILE. 


If the array elements are scattered throughout the record, 
they may be defined and loaded one at a time, one to a 
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Figure 64. Defining an Execution Time Array with Consecutive Elements 
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Figure 65. Defining an Execution Time Array with Scattered Elements 


specification line. In Figure 65, an array, ARRX, of six 52 This column must be left blank. 
elements with 12 positions each, is loaded from a single 

record from file ARRFILE; a blank column appears be- 

tween each two elements. 


Following are the input specifications required for loading 53-58 The name of the array or the name of a 
an array from a single input record: single element (array name with index). 
This array name must be the same name 
Column Entry as that used on the Extension Sheet. 
6 I 59-62 Blank 
7-42 Blank 63-64 Field record relation indicator. See 
. Columns 63-64 in Chapter 7 for infor- 

43 P (packed), B (binary), or blank. mation on this entry. 

44-47 Field location of either an entire array 65-74 Blank 

and (consecutive elements) or individual field 

48-51 locations of single elements of the array. 
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Array Information in More Than One Record 


If the array information is in two or more records, there 
are many methods that may be used to introduce the array 
to the system. The method you use is primarily based on 
the size of the array and whether the array information is 
all together in the input records. Figure 66 shows the 
array that could result by loading array information from 
certain input records. Each record identified by a 1 or 3 in 
column 1 contains twelve items of array information. 
Records identified by a 2 in column 1 do not contain array 
information, although they appear in the same input file. 
Examples of loading and storing array information are 
found in Examples of Using Arrays in this chapter. 


Keep in mind that the RPG II program processes one record 
at atime. You cannot process the entire array until all of 
the records containing the array information have been read 
and the information moved into the array fields, It may, 
therefore, be necessary to suppress calculation and output 
operations until the entire array has been read into the sys- 
tem. 


Records From Input File 


Searching Tables and Arrays 


Tables and arrays can be searched using the LOKUP opera- 
tion code. LOKUP is described under Operation Codes at 
the end of the column descriptions in Chapter 8. 


Using Arrays 


Arrays can be used in input, output, or calculation specifi- 
cations (see Examples). The elements in an array can be 
referenced individually, or the array can be referenced as a 
whole. Individual elements are referenced by an array 
name plus an index. The array name alone references the 
entire array. : 


Array Name and Index 


The array name must begin in column 27 or column 46 of 
the Extension Sheet and must be a valid RPG II name. 


Resulting Array 
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1 GROUP 1 
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Figure 66. Loading an Array from Input Records 
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The length of the array name depends on how the array is 
being used. The array name can be from one to six charac- 
ters long. The array name by itself is used only when refer- 
encing the entire array. 


If individual elements of the array are to be referenced, the 
array name will require an index. An index may be a 
numeric field with zero decimal positions or a literal. The 
"array name and index must be separated by a comma. The 
array name with comma and index entry is limited to six 
positions (input, output specifications, or Result Field of 
calculation specifications) or ten positions (Factor 1 or 
Factor 2 of calculation specifications). The index must not 
be zero, negative, or greater than the number of elements 
in the array. 


Some examples of array names with and without indexes 
are as follows: 


Valid Explanation 

ARAYO1 

B 

AR,1 The first element of array AR: 

X, YY2 Where YY2 is the name of a numeric 
field with zero decimal positions. 

Invalid 

BALANCE Array name has more than six characters. 

6TOTAL First character not alphabetic. 

TOTAL- Name contains special character. 

CR TOT Name contains blank. 

Al, Al Array is used as index. 

BAL,XX1 Name including comma has more than 


six characters. This name is valid for 
Factor 1 and Factor 2 of the calculation 
specifications only. 


Referencing an Array in Calculations 


You can reference an entire array or individual elements in 
an array using calculation specifications. Process individual 
elements like normal fields. Remember, if an array field is 
to be used as a result field, the array name with comma and 
index cannot exceed six characters. 


To reference an entire array use the array name without an 
index. The following operations may be used with an array 
name: ADD, Z-ADD, SUB, Z-SUB, MULT, DIV, SQRT, 
MOVE, MOVEL, MLLZO, MLHZO, MHLZO, MHHZO, 
MOVEA, DEBUG, XFOOT, and LOKUP. Factor 1 and 
Factor 2 cannot be an array name unless the Result Field 

is also an array name. For XFOOT and LOKUP operations, 
Factor 2 can be an array name without an index. 


There are also several operations that can be used with an 
array element only (not the array name alone). These oper- 
ations are: COMP, DSPLY, TESTZ, TESTB, BITON, 
BITOF, and MVR. . 


The following rules apply when using array names without 
an index in calculations: 


1. | When the factors and the Result Field all are arrays 
with the same number of elements, the operation is 
performed using the first element from every array, 
then the second element from every array, etc., until 
all elements in the arrays are processed. If the arrays 
do not have the same number of the entires, the oper- 
ation ends when the last element of the array with the 
fewest elements has been processed. 


2. When one of the factors is a field or constant and the 
_ other is an array, and the result field is an array, the 
operation is performed once for every element in the 
shorter array. The same field or constant is used in 
all of the operations. 


3. If an operation code uses Factor 2 only (such as 
Z-ADD, A-SUB, or SQRT) and the Result Field is an 
array, the operation is performed once for every ele- 
ment in the array. The same field or constant is used 
in all of the operations. An exception is the MOVEA 
operation which moves the field into the array with- 

- out regard to elements. — 


4. Resulting indicators (columns 54-59) cannot be used 


due to multiple operations being performed. Excep- 
tions are XFOOT and LOKUP which allow resulting 
indicators. 
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Modifying the Contents of Tables and Arrays 


Tables and arrays can be temporarily changed during execu- 
tion of a job. This is done when the table or array name is 
used as a result field in an arithmetic or move operation. | 
This causes the appropriate.entry in the table or array to be 
modified for the duration of the job. The next time the job 
is executed, however, the table or array will have the 
original entries. Temporary changes can be permanent if 
the modified table or array entries are written or punched 
out and the new records, instead of the original ones, are 
used in the table or array input file or the original data is 
modified. 


Figure 67 shows specifications for modifying the contents 
of corresponding tables TABFIL and TABLIT. 


Adding Entries to a Short Table or Array 


Entries can be added to short tables and arrays before or 
during execution of the job. The simplest way to add 
entries to a table or array is to write additional entries on 
the input records before program execution. However, 
entries can also be added during execution of a program. 
The entries added can be created by calculation operations 
or read from an input record. 


Figure 68 shows how entries are added to two related, 
numeric tables. 


Table and Array Output 


Tables and arrays can be written out one of two ways 
depending on whether or not you want to modify the table 
or array output. If you specify the name of the output file 
to be used in columns 19-26 of the Extension Sheet, the 
RPG II program will write out the entire table or array with 
all of its modifications. Using this method the RPG II 
program will write out all types of tables and arrays except 
execution time arrays. 


If you wish to modify the output of a table or array, you 
must describe the table or array on the Output Sheet 
along with any normal fields for the output record. You 
must also specify the name of the table or array in 
columns 32-37 of the Output Sheet. Columns 40-43 must 
contain the record position where the last field of the 
table or array is to end. 


If an output record is to contain only certain fields from 

a table or array, describe the fields in the same way as you 
do normal fields, using either a table name or an array name 
with an index. 
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number 30 is moved into TABFIL. 


Figure 67. Changing Table Data During Calculations 


Factor 2 
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All elements in TABFIL which contain 25 are to be changed to 30. 
The corresponding elements in TABLIT are to be changed to 500, 
The search word is the constant 25. On each program cycle, when 
a match is found in the table TABFIL, the entry from TABFIL and 
its corresponding entry in TABLIT become available for change. 

- The number 500 is then moved into the TABLIT element and the 
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The LOKUP operation is conditioned by indicator 01. Indicator 01 


is on when a record is read containing information in the fields NEWA 


- and NEWB. These fields are to be added to the short tables TABA 
and TABB respectively. To get the entry in the correct place in the 


table, a search is made to find the first empty entry. Unfilled entries 


are filled with zeros. Thus the search word used is 000. When the 
first 000 entry is found (indicator 35 turns on), NEWA and NEWB 
become part of the related tables TABA and TABB. These entries 


Comments 


are temporary unless they are written (or punched ) on table records. 
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Figure 68. Adding Table Entries to a Short Table 


Editing Entire Arrays 


When editing an entire array, any editing you specify 
applies equally to all fields in the array. If you require 
different editing for various elements, reference them 
individually. 


When you specify an edit code for an entire array (column 
38), note that two blanks are automatically inserted to the 
left of every field in the array. When you specify an edit 
word instead, the blanks are not inserted. The edit word 
must specify all the blanks you want inserted. 


Example of Using Tables 


A payroll job requires two related tables (Figure 69). 


TABNUM is the search table containing employee numbers. 








TABRAT is the related table containing employee salary 
rates. After an employee’s rate has been found, the rate is 
multiplied by the number of hours worked. The result is 
the amount earned. 


TABNUM TABRAT 





_ Figure 69. Tables Used in Payroll Job 
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The table entries are organized in alternating format on the 
input records. On line 01 of the Extension Sheet (Figure 
70), the table searched is called TABNUM. There are eight 
entries in each input record and 500 entries in the table. 
Each table entry is five positions long and contains no deci- 
mal positions, The table is in ascending sequence. The 
related table is called TABRAT. Each entry is four posi- 
tions long and contains two decimal positions. 


Line 01 of the Calculation Sheet causes the employee num- 
ber (EMPLNO) to be used as the search word for the data 
contained in TABNUM (the search table). Indicator 03 is 
turned on when the program finds an entry in TABNUM 
that is equal to the search word. 
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Program Punching 


Line 02 of the Calculation Sheet is performed when indica- 
tor 03 ison. The rate for the employee, taken from the 
related table TABRAT, is multiplied by the number of hours 
worked (HRSWKD), The result is stored in the field 
EARNS, which is five positions long with two decimal posi- 
tions. The result is half-adjusted. 


When the search word does not find an equal entry in 
TABNUM (indicator 03 is not on), line 03 is performed. 
The literal 000.00 is then moved to the field EARNS, indi- 
cating that the employee does not have an entry in the 
table. 
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other elements of AR1 are loaded one after another until 


In Figure 72 we see a method whereby eighteen 
the array is full. Each additional element is coded ona 


5-position elements of array AR1 are loaded with only two 
specification lines. On succeeding lines of the Input Sheet 
separate line. Each new record requires a separate means of 
identification. For example, if another 03 record followed 
the first, the fields on the second record would overlay the 


tions to set up the array. Extra work, however, is required 
fields read in from the firstsrecord. 


to set up the indexing scheme for the input records. 
The method illustrated in Example 2 works well for small 


arrays. 


_ This method requires a minimum of coding and no calcula- 
Example 2: 


cifica- 
Ci 


v 


each input record type 03 and to the I and I2 fields on 
each 04 record type. Succeeding type-03 records then load 


ten additional elements into array AR; each type-04 record 


array using fields in input records as indexes. The example 
loads two additional elements. 


shows a 12-element array with element length five. The 


array can be made larger without additional input spe 
since the array elements and their index are identified by 


Blanks and other fields can appear on the input records 
From and To entries. 


Example I: Figure 71 illustrates a method of loading an 
tions by assigning different:values to the I1-I10 fields on 
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Figure 74 shows the same functions being performed along ation Sheet of Figure 73. Similarly, the output specifica- 


arrays. Note the reduction in coding required to specify the tions are reduced from 15 lines to 6. (Notice, however, that 
functions. For example, line 5 of the Calculation Sheet per- —_ the method using array results in only two positions between 
forms the same function as lines 5 through 8 of the Calcul- array elements.) 
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Example 4: This example illustrates the use of three arrays 
defined as follows. Refer to Figure 75. 


Array Name Number of Fields Field Length 


ARA 4 5 
ARB 5 10 
ARC 6 4 


Array ARA is contained in the input records corresponding 
to indicator 01, ARB in the records corresponding to 02, 
and ARC in both types of records. Array ARC and the first 
field of array ARA are to be included together in an output 
record as are arrays ARC and a field (identified by field X1) 
of array ARB. Every field in array ARC is edited according 
to the edit word OB.6K&CR. (where b represents a blank). 


Assume that the contents of the arrays in the first two input 
records are: 


Record ‘Array Array Contents 


1 ARA 12345678901 234567890 
ARC 012345678901 23456789876N 
(note that N equals minus 5) 
2 ARB JOHNK’DOEBBJOEKSMITHBLEEB 
MARXUBJIMBKNOTSBTIMBTYLERS 
ARC (The same as in record 1) 
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In the first output record, the location and contents of the 
arrays are (% represents a blank): 


Array Location Contents 

ARA 85-89 12345 

(first field) 

ARC 37-84 61.2366645.6 7664 
89.0166623.45 464 
67.8966b87.656CR 


For the second output record assume that the contents of 
field X1 is 4. The locations and contents of the arrays are: 


Array Location Contents 

ARB 91-100 JIMbKNOTSS 

(fourth 

field) 

ARC 37-84 The same as in the first record. 
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Example 6: Figure 77 shows a method of writing a large 


Example 5: Figure 76 shows a method of writing short 


array on the output device. The number of fields printed 
on a line depends on the value assigned to the compare on 
line 10 of the Calculation Sheet. If an edit code is used, 


each array field will be se 


arrays on the output device. The contents of one element 
of a 22-element array, AR2, is written to the output file 


ARFILE each time the specification in line 3 of the Calcu- 


lation Sheet is performed. — 


parated by.two spaces. These 
be considered when computing the end posi- 


tion in the output specifications. 
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spaces must 
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Extension Specifications 


Chapter 6. Line Counter Specifications 


COLUMNS 1-2 (PAGE) 


Line counter specifications should be used for each printer 
file (except the console printer) in your program. If the 


See Chapter 2. | 


dual carriage feature is used, two specification lines should 
be completed. Line counter specifications indicate at what 
line overflow occurs and the length of the form used in a 


COLUMNS 3-5 (LINE) 


printer. Both of these entries must be specified on the Line 


Counter Sheet (Figure 78). If no line counter specifications 


See Chapter 2. 


the forms length used will be either: 


bd 


exist 


The forms length specified on the // FORMS card, or 


1. 


The forms length specified at system generation time 


(if no // FORMS card was specified). 


2. 


In either case, the overflow line is assumed to be six lines 


less than the specified forms length. 
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COLUMN 6 (FORM TYPE) 


An L must appear in column 6, 


COLUMNS 7-14 (FILENAME) 


Use columns 7-14 to identify the output file to be written 
on the printer. Filename must begin in column 7. 


Any filename entered in these columns must be previously 
defined on the File Description Sheet. The output device 
assigned to the file on the File Description Sheet must be 
a printer. 


COLUMNS 15-17 (LINE NUMBER—NUMBER OF LINES 
PER PAGE) 


Entry Explanation 
12-112 


Number of printing lines available. 


Columns 15-17 specify the exact number of lines available 
on the form or page to be used. The entry must end in 
column 17. Leading zeros may be omitted. If a number 


less than 12 is specified, RPG II does not indicate an error. | 


However, unpredictable skipping errors may occur. 


COLUMNS 18-19 (FORM LENGTH) 


Entry Explanation — 
FL _ Form length 
Columns 18-19 must contain the entry FL. This entry 


indicates that the preceding entry (columns 15- i} is the 
form length. 


COLUMNS 20-22 (LINE NUMBER—OVERFLOW LINE) 


Entry Explanation 


1-112 A line number from 1-112 is the overflow | 
line. 


Columns 20-22 specify the line number that is the overflow 
line. The entry must end in column 22, Leading zeros may 
be omitted. 


‘When the destination line of a space, skip, or print opera- 


tion is a line beyond the overflow line you have specified 
(but not beyond the form length), the overflow indicator 
turns on to indicate that the end of the page is near, When 
the overflow indicator is on, the following occur before: 
forms advance to the next page: 


1. Detail lines are printed (if this part of the program 
cycle has not already been completed). 


2. Total lines are printed. 


3. Total lines conditioned by the overflow indicator 
are printed. 


Because all these lines are printed on the page after the 
overflow line, you have to specify the overflow line high 
enough on the page to allow all these lines to print. You 
know the data you will be printing out after the overflow 
line is reached, Thus, you can judge what line should be 


_ the overflow line on this basis. See Columns 33-34, 


Chapter 4 for a discussion of overflow. 


COLUMNS 23-24 (OVERFLOW LINE) 
Entry Explanation 
OL Overflow line 
Columns 23-24 must contain the entry OL. This entry 
indicates that the preceding entry (columns aes is the 
overflow line. 


COLUMNS 25-74 


Columns 25-74 are not used, 


COLUMNS 75-80 (PROGRAM IDENTIFICATION) 


See Chapter 2. 
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Chapter 7. Input Specifications 


COLUMNS 1-2 (PAGE) 


Input specifications describe the data files, records, arid 


fields of the records to be used by your program. These 
specifications may be divided into two categories: 


See Chapter 2. 


File and record type identification (columns 7-42). 


1. 


COLUMNS 3-5 (LINE) 


These specifications describe the input record and its 


relationship to other records in the file. 


See Chapter 2. 


Field description entries (columns 43-74). These 


specifications describe the fields in the records. 


pa 


COLUMN 6 (FORM TYPE) 


‘The specifications are written on the Input Sheet (Figure 


79). The field description entries must start at least one 


An / must appear in column 6, 


line lower than file and record type identification entries. 


GX21.9094 1/M 050° 
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COLUMNS 7-14 (FILENAME) 


Columns 7-14 identify the input, update, or combined file 
you are describing. The filename must begin in column 7 
and conform to RPG II naming specifications. Use the 
same filename given in the file description specifications. 
The name of every input, update, or combined file (except 
table input files and record address files) described in 

the file description specifications must be entered at 

least once on this sheet. The filename must appear on the 
first line that contains information concerning the records 
in that file. If the filename is omitted, the last filename 
entered is assumed to be the file being described. All 
records and fields for one file must be completely 
described before another file can be described. 


COLUMNS 15-16 (SEQUENCE) 


Entry Explanation 
Any two 

alphabetic 
characters 


No check for special sequence. 


Any two- 
digit 
number 


Check for special sequence. 


Columns 15-16 may contain a numeric entry which assigns 
a special sequence to different record types in a file. 


If different types of records do not need to be in any 

special order, use two alphabetic characters (see Examples, 
Example 1). Alphabetic characters must be used for chained 
files and look ahead records. Within one file record types 
having alphabetic and numeric sequence entries can be 
specified for the same file, but all alphabetic entries must 

be before the numeric entries. 


Use columns 15-16 to assign sequence numbers to different 
types of records within a file. Your job may require that 

_one record type (identified by a record identification code) 
must appear before another record type within a sequenced 
group. For instance, you may want a name record before 
an address record. You must provide a record identification 
code for each type of record and then number the record 
types in the order that they should appear. The program 
will check this order as the records are read. The first 
record type must have the lowest sequence number (01), 
the next record type should be given a higher number, etc. 
(See Examples, Example 2.) 


Numeric sequence numbers only ensure that all records of 
record type 01 precede all records of record type 02, etc., 
in any sequenced group. The sequence numbers do not 
ensure that records within a record type are in any certain 
order. Numeric sequence numbers have no relationship 
with control levels, nor do they provide for sequence 
checking of data in fields of a record (see Examples, 
Example 3). 


Gaps in sequence numbers are allowed, but the numbers 
used must be kept in ascending order. The first sequence 
number must be 01. 


A record type out of sequence causes the program to stop. 
The program may be restarted by pressing the START key 
on the processing unit. The record that causes the halt is 
bypassed and the next record is read from the same file. 


Records in an AND or OR line cannot have a sequence 
entry in these columns. The entry in these columns from 
the previous line also applies to the card in the OR line. 
See Columns 53-58 in this chapter for information on OR 
relationships. 


Examples 


Example 1: Figure 80, insert A, shows a file having two 
types of records (part number and item number) which 
may appear in any order. Since they are not to be checked 
for sequencing, they are assigned two alphabetic characters 
(AA and BC, respectively) instead of numbers. See Figure 
80, insert B for the coding of this example. 


Example 2: Figure 81, insert A shows the order of four — 
different types of records within a file. The records are 
arranged in groups according to some coritrol field. The 
name record is first in each group and is assigned sequence 
number 01. Street record is next and is assigned 02. 
City/state record is 03. Item number is last and is assigned 
07. See Figure 81, insert B for the coding of this example. 
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Example 3: Figure 82 shows three groups of four different 
record types. Each group is in proper sequence according 
to the assigned sequence numbers (01, 02, 03, and 07). 
Notice, however, that the city/state record for group B is 
in group C and vice versa. The sequence entry which you 
specify in columns 15-16 will not catch this mistake since 
the sequence entry does not cause the data on the record 
to be checked. 


COLUMN 17 (NUMBER) 


Entry Explanation 

Blank Record types are not being sequence 
checked (columns 15-16 have alphabetic 
entries). 

1 Only one record of this type is present in 
the sequenced group. 

N One or more records of this type may be 


present in the sequenced group. 







C Item Number (07) 





These two cards, even though 
in the proper sequence, are in 
the wrong data group. A 
sequence entry in columns 
15-16 does not check for 

this type of error. 










B City/State (03) 


B Item Number (07) 






C City/State (03) 


B Street (02) 







A Item Number (07) 





A City/State (03). 


A Name (01) 





Figure 82. Correct Card Sequence (Incorrect Data in Each Group) 


Use column 17 only if sequence chécking is to be done 
(columns 15-16 contain numbers). Often, when sequence 
checking, you may have more than one record of a particu- 
lar type within the sequenced grotip (see Example). If this 
occurs, you must indicate by an ‘N’ in column 17 that. 
more than one record of one type may be found in the 


-sequetice group. 


AND or OR lines (columns 14-16 have the letters AND or 
OR) should not have an entry in this column. It is assumed 
that the number of records of this type to be found in the 
sequenced group is the same as the entry in column 17 of 
the previous line. (See Columns 21-4] in this chapter for 
more information on AND lines; see Columns 53-58 for 
more information on OR lines.) 


Example 


Figure 83 shows a sequenced record file in which there is 
more than one record per type in a group. The record type 
called item number appears three times. 


There is probably no reason for a name, street, or city/state 
record to appear more than once in one group. A J is 
entered in column 17 to indicate that these record types _ 
appear only once in each group. However, since one person 
may have purchased more than one item, there may be two 
or more item number records per group; an JN is entered in 
column 17 for this field. See Figure 81, insert B for the 
coding of this example. 







B Item Number (07) 


B Item Number (07) 






B Item Number (07) 


B City/State (03) 






‘7B Street (02) 






B Name (01) 


Figure 83. Sequenced Card File (More Than One Record 
Per Type in a Group) 
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COLUMN 18 (OPTION) — 


Entry Explanation 

Blank Record type must be present (if sequence 
checking is specified). 

O Option. Record type may or may not be 


present. 


Column 18 is used when record types are being sequence 
checked. A blank entry specifies that a record of this 
record type must be present in each sequenced group. 


The O entry specifies that a record of this record type may 
or may not be present in each sequenced group (see 
Example), If all record types are optional, no sequence 
errors will be found. 


AND or OR lines should not have an entry in this column. 
The entry in this column on the previous line also applies to 
this line. (See Columns 21-41 in this chapter for more in- 
formation on AND lines; see Columns 53-58 for more 
information on OR lines.) | 


Example 


Figure 84 shows a sequenced card file in which a card type 
may be optional. For instance, the street or item number 
records may not be included, Since it is not always neces- 
sary to have a street address, this record is optional. Sup- 
pose this job required a list of all items purchased during 


B' City/State (03) 


B Name (01) 







A Item Number (07) 


A City/State (03) 


A Name (01) 


_ Figure 84. Sequenced Card File (Optional Record Types) 
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one month by the individual named in the name record. It 
is possible that a person might not buy anything during the 
month. In this case, there would be no item record; there- 
fore, the item record would also be optional. (See Figure 
81, insert B for a coding example.) 


COLUMNS 19-20 (RECORD IDENTIFYING INDICATOR, 


* *) 
Entry Explanation 


Record identifying indicator (see general 
discussion under Columns 54-59, Chapter 8). 


01-99 


L1-L9 Control level indicator, used for a record 


identifying indicator when a record type 
rather than a control field signals the start 
of a new control group (see general discus- 
sion under Columns 59-60, Chapter 7). 


LR Last record indicator (see Columns 7-8, 
Chapter 8). 


H1-H9 Halt indicator, used for a record identifying 


indicator when checking for a record type 
that causes an error condition (see general 
discussion under Columns 54-59, Chapter 8). 
bit Look-ahead fields. 
TR Spread cards. 
Columns 19-20 may be used for three purposes: 
1. Specifying record identifying indicators. 


2. Indicating look-ahead fields. 


3. To specify the trailer portion of spread cards. 


RECORD IDENTIFYING INDICATORS 


‘Use columns 19-20 to assign an indicator to each record 


type. When you have different types of records within a 
file, you often want to do different operations for each 
record type. Therefore, you must have some way of know- 
ing which type of record has just been read. To do this, 
you assign different record identifying indicators to each 
record type. Whenever a record type is selected to be 
processed next, its corresponding identifying indicator is 
turned on. (All other record identifying indicators are off 
at this time, unless chained files or demand files are being 


processed, when several may be on at the same time.) This 
indicator signals throughout the rest of the program cycle 
which record type has just been selected. A record 
identifying indicator need not be assigned if you are not 
concerned about different record types. 


Because the record identifying indicator is on for the rest of 
the program cycle, you may use it to condition calculation 
operations (see Columns 9-17 in Chapter 8) and output 
operations (see Columns 23-31 in Chapter 9). 


Note: Record identifying indicators are not on during 
Last Record time. See Detailed RPGII Object Program 
Cycle in Appendix C. 


Record identifying indicators do not have to be assigned 
in any order. 


When a control level indicator used as a record identifying 
indicator turns on to reflect the type of record read, only 
that one control level indicator turns on. All lower level 
indicators remain off. 


You may assign the same indicator to two or more different 
record types provided you want the same operations per- 
formed on these types. This can be done by using the OR 
relationship (see Columns 21-41 in this chapter). 


No record identifying indicator may be specified in the 
AND line of an AND relationship. Record identifying indi- 
cators for OR lines may be specified for every record type 
in the OR relationship that requires special processing. An 
OR line with any record identifying indicator not used 
elsewhere in the program allows unwanted records (such as 
blank records) to be bypassed. (See Columns 21-41 in this 
chapter for information on AND lines. See Columns 53-58 
in this chapter for information on OR lines.) 


LOOK AHEAD FIELDS 


Use asterisks in columns 19-20 to indicate that fields named 
in columns 53-58 on the following specifications lines are 
look-ahead fields. A look-ahead field allows you to look at 
information in a field on the next record that is available 
for processing in any input file. In update and combined 
files, the look-ahead field is for the record currently in 
process, 


Two of the uses for look-ahead fields are: 


1. Determining when the last card of a control group is 
being processed. 


2. Extending the RPG II matching record capability. 


Look-ahead fields can be used with input, update, and com- 
bined files whether or not they are processed by a record 
address file. They cannot be specified for chained or 
demand files or files that contain header/trailer records. 
You can describe one set of look-ahead fields per file; 

the description applies to all records in the file, regardless 
of their type. (The specifications for describing the fields 
are given later.) Look-ahead fields cannot be altered in _ 

the program (cannot be used as a result field or blanked 
after). 


Note: An extra buffer is provided by the RPG program 
for the look-ahead fields. 


If you wish to use information both before and after the 
record is selected for processing, you must describe the |. 
field twice; once as a look-ahead field and once as a normal 
field, 


For combined and update files, the look-ahead fields apply 
to the next record in the file only if the current record was 
not read from that file. Therefore, when you are reading 
from only one file and the file is a combined or update file, 
look-ahead fields always apply to the current record. 


Figure 85 shows processing three records from two input 
files, one primary and one secondary. The first record. 
from each file is read (see Figure 85, insert A). In Figure 
85, insert B, record P1 is selected for processing; in Figure . 
85, insert C, record P2; and in Figure 85, insert D, record S1. 
The records available for look-ahead during the processing 
of these records are: 


Record __ Records 
Processed Available 
Pl P2 and Si 
P2 P3 and S1 
S1 P3 and S2 


In general, when the record being processed is from an 
input file, the next record in the input file is available as 
are the records which were read but not selected from the 
other files. 
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Read first record 
from secondary file. 


Area into which records 
are read (read area). 


Area into which records 
are selected for 
processing (process area). 









Read second 
record from primary file. 


Cert ee ste oe 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
pe eeereea Ee 


Select first record 
from primary file 
for processing. 


Figure 85 (Part 1 of 2). Available Records: Two Input Files 
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nee ———— 
record from 
primary file. 


Process Area 


Select second record 
from primary file 
for processing. 


Processed Records 





7-7 Read second record 
from secondary file. 


| 

| 

| Read Area 

@ 
a Select first record from 
secondary file for processing 


Process Area 





Ns ee ee ee ee ee ee 


Processed Records 


Figure 85 (Part 2 of 2). Available Records: Two Input Files 
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Figure 86 shows the same files as Figure 85 with one In general, when the record being processed is from a com- 


exception: file A is an update file. The records available bined or update file, only the records which were read, but 
for look-ahead during the processing of the three records not selected, from the other files are available for look- 
are. ahead. The next record from the combined or update file 
| ; is not read until after the current record has been processed. 
Records Records Therefore, the next record from the combined or update 
Processed Available file is not available for look-ahead. 
U1 U1 and S1 After the last record from a file has been processed, every 
look-ahead field for the file is automatically filled with 9’s. 
U2 U2 and S1 For example, a field three record-positions long contains 
999, The 9’s remain in the fields until the job ends. Note 
S1 _ U3andS2 also that blank after (B in column 39 of the Output Sheet) 


cannot be used with look-ahead fields. 


Update File Secondary File 


© 


Read first 
record from 
update file. 





Read first record 
from secondary file. 


i Mate a 
‘ a field | Area into which records 
(U1) Match +" | are read (read area). 
| 


field 


are selected for processing 
process area), 


_~ 


| 
| Area into which records 
| 
| 
| 


Figure 86 (Part 1 of 3). Available Records: One Input File, One Update File 
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S La S J 





SS —— 
1 2 3 2 
(U2) (U4)} (U5) (S3) 
a a a a a gs Sw es = 
| 
| 
ay | Read Area 
| 
| 
ss oe alps a — 
| 
| 
' | Process Area 
(U1) 
l 
Mie hei a ee ee See J 
Select first record Record U1 has moved into the process area, 
from update file but a data image of U1 remains in the read 
for processing. area until U2 is read in. U2 will not be read 


in until U1 is completely processed. There- 
fore, while U1 is in the process area, records 
available for look-ahead are $1 and U1 (the 
data image). 





® 


Read second 
record from 








update file. 
———_ ee aa eee eee 
| | 
| 1 | 
| | Read Area 
U2 I 
| | 
L 
| 
| 
| 
| Process Area 
| 
| 
L 
(74 
© 1 ' Processed Records 
L (U1) 


Figure 86 (Part 2 of 3). Available Records: One Input File, One Update File 
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| Read Area’ 


Process Area 
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Select second record 


from update file [1 a 
. ' | 
for processing 1 (ut)! Processed Records 
S AD S DO 
S Read third 2.48 
record from (U4)} (U5) 
update file. : 
Po a Read second 





record from 


ne s 
. P | 
2 ie , | secondary file. 
(U3) | Read Area 
| 


Select first record 


| 

| from secondary file 
for processing. 

| 


Process Area 


ia 

| 

| 

| 

| 

| 

| 

| 

| 

| 

| 

| 

| 

| 

| 

| 

| 
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i 
(U2)! 
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L 
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' 
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L 


i] 
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Figure 86 (Part 3 of 3). Available Records: One Input File, One Update File 
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Specifications 


You can describe one set of look-ahead fields per file. The 
description applies to all records in the file, regardless of 
their type. Look-ahead fields must not be described for 
demand or chained files, and they must not be used as array 
fields. To describe a set of look-ahead fields, place ** in 
columns 19-20 of a line following the normal field descrip- 
tions for the file. The ** line can follow only a file or 
record type which has an alphabetic sequence entry. Leave 
columns 17-18 and 21-74 blank. Place any alphabetic char- 
acters under Sequence in columns 15-16. Describe the 
look-ahead fields on separate lines following the ** line 

(as in Figure 87, Part 2, insert B). 


RPG CONTROL CARD AND FILE DESCRIPTION SPECIFICATIONS 


Pemme TT]  e 
EC a 


IBM International Business Machine Corporation 


Figure 87 shows a job which reads records from two files. 
The primary file is named PRIMARY; the secondary file, 
SECONDRY. Ifa record from the primary file matches 
one from the secondary file, the information in positions 
one through ten of the secondary file record is placed in 
positions 31-40 of the primary file record. When there is 
no match, a 6 is placed in position 1 of the primary file 
record. The 6 will indicate an unmatched record in the 
primary file. 


Because the primary file record is processed first when it 
matches a secondary file record, the information from the 
secondary file record has to be described as a look-ahead 
field. 


GX21-9092 UM/050° 
Printed in U.S.A, 


12 76 76 77 78 79 80 
4 Program 
atl oni 
Page D _ Identification 


Control Card Specifications 


Address 
to Start 


17 18 19 20 


Length of Key Field or 
of Record Address Field 


Filename Type of File 
Organization 


or Additional Area 


Key Field | 


Starting 
Location 


Figure 87 (Part 1 of 2). Look-Ahead Fields 


Refer to the specific System Reference Library manual for actual entries. 


% Table Load Halt 
Shared 1/0 
Field Print 
; | 18 Formatted Core Dump 


2 
o 
a 
oO 


55 56 57 58 59 60 6 67 68 69 70 71 72 73 74 


52 53 54 1 62 63 64 65 66 


File Addition/Unordered 


Number of Tracks 
for Cylinder Overflow 


Number of Extents 


Extent Exit 
for DAM 


Core Index 


Name of 
Label Exit 


Labels S/N/E/M 
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IBM International Business Machine Corporation 


rormen owe 


1 (2 75 76 77 78 79 80 


RPG INPUT SPECIFICATIONS iho gap aga 


. Card Electro Number 
Punching 
sane a 
Field 
Indicators 


2. 
H 
Filename 2 ; : Field Name 3° 
ek i Plus |Minus| or 
5 60)61 62]63 64]65 66 
4 
















Form Type 

Decimal Positions 
Control Level (L1-L9) 
Matching Fields or 
Chaining Fields 

Field Record Retation 


~ 








RPG OUTPUT SPECIFICATIONS ainaokar 


IBM International Business Machine Corporation 
Graphic Card Electro Number ube 75 76 77 78 79 80 
Punching p. a3) ' Program 
[revamped rn Fm JE TLL IOS erin 


po] | Output Indicators 
Field Name 














X = Remove 
Plus Sign 

Y = Date 

Field Edit 


ee Zero Balances 
D> | comms | Petine™ | Nosen| on | - | 













Filename 
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[o|__Before | 
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}-t++ Place the look-ahead field from secondary 
> records into positions 31-40 of the primary 
record if the two records match. 














| | f | | feof [>] Stacker # /Fetch{F) 











; ‘Place a 6 in position 1 of the primary record 
if the record matches no secondary record. 








er a a ee 
2LOfololof[ol[o]o fo _Formstype 





2lelefefolefelols 
ej ~[o [alo lw [= ]> 
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Figure 87 (Part 2 of 2). Look-Ahead Fields 
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SPREAD CARDS 


Certain jobs require that you keep data files containing a 
header card and a separate card for each item or transaction 
being recorded. Thus, for a billing job you may have a data 
file, for each customer, with the following cards. . 





i TEM# QTY 


42 3 4 8 6 7 6 9 1 Mh 12 13 4 1S 16 17 16 19 20 21 22 23 24 25 26 27 26 29 30 31 32 












1 TEM# QTY 


12.3 4 5 6 7 8 M9 10 WH 12 13 4 15 16 17 18 19 20 21 22 23 24 25 26 27 286 29 30 31 32 







ITEM# QTY 


12 3 4 S$ 6 7 6 BM 10 tH 12 13 4 1S 16 17 16 19 20 21 22 23 24 25 26 27 28 29 30 31 32 





CUS TOMER NUMBER 


123 483 6 7 6 9 0 If 12 13 4 15 16 16 19 20 21 22 23 24 25 26 27 28 29 30 34 32 


ITEM# QTY 


12345 676 9 ON 12 13 4 15 16 18 19 20 21 22 23 24 25 26 27 28 29 30 38 


ITEM# QTY 


12345 6 7 8 WH 12 13 4 15 6 1 19 20 21 22 23 24 25 26 27 28 29 30 34 


ITEM# QTY 


123 4 $ 6 7 B8 & 1 Th 12 13 14 15 16 16 19 20 21 22 23 24 25 26 27 28 29 30 3t 


CUS TOMER NUMBER 


12345 67 8 $ 0 12 Bu 1S 16 18 19 20 21 22 23 24 25 26 27 28 29 30 31 


ITEM# aTY 


12.3.4 5 6 7 8 8 10 1 12 13 4 15 16 18 19 20 21 22 23 24 25 26 27 26 29 30 31 


QTY 


8 9 10 8 12 13 4 IS 16 18 19 20 21 22 23 24 25 26 27 28 29 30 31 


QTY 


8 9 10 N 12 13 4 IS 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 


QTY 


6 $ 10 11 12 13 4 15 16 18 19 20 2t 22 23 24 28 26 27 28 29 330 4H 


CUSTOMER NUMBER 


12345 67 8 0 1 12:13 4 15 16 18 19 20 21 22 23 24 25 26 27 28 29 30 31 


33°34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 SO 51 $2 53 54 SS 56 57 58 59 60 61 62 63 64 


65 66 67 66 69 70 71 72 73 74 75 76 77 78 79 80 Bi B2 63 64 BS BE 87 8A BY 90 91 92 93 94 95 96 


97 98 99 100 101 102 103 104 10S 106 107 108 109 NO IM NZ M3 114 MS NG 7 NS NO 120 121 2 123 124 175 126 127 1208 


1234 5 6 7 6 9 WH MN 12 13 14:15 6 18 19 20 21 22 23 24 25 26 27 28 29 30 31 


~ 
x 


“NSA OPT-NAMOPD-“NiQaO%T 


33 34 35 36 37 36 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 


“NSAOPT-NAOPOD-NSOPT 


65 66 67 68 69 70 71 72 73 74 TS 76 77 76 79 80 St 62 63 84 85 86 87 BB 69 90 91 92 93 94 95 96 


1BM 3700 





Customer 3 


Customer 2 


Customer 1 
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With the spread card capability of RPG II, you can store 
more data on each card or diskette. You do not need to use 
a header card and a separate card for each item or trans- 
action. You can specify a spread card with a header portion 
followed by trailer portions which contain the item or trans- 


action data. A trailer portion can consist of as many fields 
as are necessary; however, the same fields must appear in 
each trailer portion. A trailer portion must not be split 


between two records. 


Thus, a data file for a billing job such as the one shown 
previously may have the following spread cards. 
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“~NAOYPDW-NHAMOPDW-NAOPYPD 


CUS TOMER NUMBER ITEM# QTY IT 


123 4 5 6 7 8 9 WM 12 13 4 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 3 32 


EM# QTY ITEM # QTY 


33°34 35 36 37 36 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 5S 56 57 56 59 60 61 62 63 64 


CUSTOMER NUMBER ITEM# QTY IT 


12.93 4 5 6 7 8 9 10 1 12 13 14 15 16 17 16 19 20 21 22 23 24 25 26 27 28 29 30 31 32 


EM# QTY ITEM# QTY 


33°34 35 36 37 36 39 40 41 42 43 44 45 46 47 48 49 50 Si 52 53 54 55 56 57 58 59 60 61 62 63 64 


CUSTOMER NUMBER ITEM# QTY IT 


1203 4 5 6 7 & F 10 TH 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 


EM# QTY ITEM# TY ItTEM# 


33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 SO 51 52 53 S54 5S 56 57 5B 59 60 61 62 63 64 


QTY 


65 66 67 68 69 70 71 72 73 74 75 76 77 76 79 80 81 82 83 84 85 66 87 88 B9 90 91 92 93 94 85 96 


97 98 99 100 101 102 103104 105 106 107 108 109 NO 119 12 13 4 15 16 117 1B NG 120 121 22 123 124 328 126 127 128 


123 4 $§ 6 7 8 F 10 12 13 14 15 % t7 1B 19 20 21 22 23 24 25 26 27 26 29 30 31 32 


33°34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 $1 52 53 54 55 S6 57 58 59 60 61 62 63 64 


65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 8O BI G2 83 B64 BS 86 87 BB 89 90 91 92 93 94 95 96 





1BM 3700 


Spread cards containing header and trailer portions. 
CUSTOMER NUMBER is the header portion; each 
set of ITEM# and OTY fields is a trailer portion. 


“~NAOYPOHANSAOPOM-NSAOYPOD 


Customer 3 


Customer 2 


Customer 1 


Specifications 


The only time you can specify spread cards is when the 
input card files are designated as primary or secondary. No 
look ahead fields can be described for spread cards. You 
can describe a maximum of 128 valid TR lines (TR in 
columns 19-20) in a program. 


Specify spread cards as follows: 


1. Describe the fields in the header portion of the spread 
card on separate specification lines immediately 
following the proper file and record type entries. 
The header is considered to be all positions up to the 
first trailer in the record. Any record identification 
codes specified for the header/trailer record must be 
contained within the header portion of the record. 
If a numeric entry is made in columns 15-16 of the 
specifications line containing the file and record type 
entries, an N must be entered in column 17 of the 
same line. 


Describe each field in the header portion as you would 


any normal RPG II field. You are required to describe . 


only those fields in the header portion that are used 
later in the program. If no field in the header portion 
is used, you can omit the header field specification 
and specify the TR line immediately following the 
file and record type entries. 


2. Enter TR in columns 19-20 of a specification line 
to indicate that the fields in the first trailer portion 
are described in the specification lines that follow. 
Leave columns 17-18 and 21-74 of the TR line blank. 


3. Describe the fields in the first trailer portion on 
separate lines immediately following the TR line. 
Leave columns 7-43, 59-62, and 71-74 of the trailer 
specifications blank. Describe the fields in the first 
trailer portion as you would any normal RPG II field. 


You are required to describe only those fields in the 
first trailer portion that are used later in the program. 
Be sure, however, that you describe the fields that 
indicate the start and end position of the first trailer 
portion. 


Since all trailer portions must be the same length and 
must include the same fields, you need only describe 
the first one. The compiler uses this trailer specifica- 
tion to calculate how many trailer portions the rec- 
ord contains and to determine the start and end posi- 
tion of each. 


Processing Spread Cards 


Note: Spread cards cannot be specified for device-indepen- 
dent input files. 


The following considerations apply when processing spread 
cards: 


1. One trailer portion from a spread card is processed 
per program cycle. The system treats that trailer 
portion, along with its associated header portion, as 
one logical record. 


2. The next spread card is read when: 


a. the system has processed all trailer portions in the 
current record. 


b. the system encounters a trailer portion in the 
card being processed which is entirely blank. 


Input Specifications 133 


which is made up of the customer number field (CUSTNO). 


The header is followed by a number of trailer portions. 
Each trailer is made up of an item number field (TMNO), 


a field indicating the size of the item (SIZE), and a quantity 


card in the file contains a header portion in positions 3-8 
field (QTY). 


Example: The following input specifications are needed to 
describe a file (CARDIN) containing spread cards. Each 


GX21-9094 U/M050* 


Printed in U.S.A, 
75 76 77 78 79 80 
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International Business Machine Corporation 
Filename 








Programmer 
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COLUMNS 21-41 (RECORD IDENTIFICATION CODES) 


Use columns 21-41 to describe the information that identi- 
fies a record type. 


When you have many record types in one file, you often 
want to perform different operations for each type. There- 
fore, you must identify each type by giving each a special 
code consisting of a combination of characters in certain 
positions in the record. This code must be described in 
columns 21-41 so that when a record is read the record 
type can be determined by these specifications. The first 
record identifying character should be identified in columns 
21-27, the second in columns 28-34, and so forth. 


When more than one record type is used in a file, only one 
record type will be selected for processing in each cycle. 
The record identifying indicator for that record type will be 
turned on at the time of selection. If a data record meets 
the requirements of more than one of the record types, it 
will belong to the first record type for which it qualifies. 
When all records are to be processed alike regardless of their 


type, or if there is only one type, leave columns 21-41 blank. 


Position 
Entry Explanation 
Blank No record identification code is needed. 
1-9999 Record position of the record identification 


code. 


Use columns 21-24, 28-31, and 35-38 to give the location 
in the record of every character in the identification code. 
Entries in these columns must end in columns 24, 31, and 
38 respectively. Leading zeros can be omitted. 


Not (N) 
Entry Explanation 
Blank Record ID code is present in the specified 
column. 
N Record ID code is not present in the 


specified column. 


Use columns 25, 32, and 39 to indicate that a certain 
character should not be present in the specified position. 


C/Z/D 
Entry Explanation 
C Entire character. 
Z Zone portion of character. 
D Digit portion of character. 


Use columns 26, 33, and 40 to indicate what portion of a 
character is used as part of the record identifying code (see 
Character Structure following Examples), Only the zone 
portion, only the digit_portion, or both portions (the whole 
character) may be used (see Examples, Example 3, and 
Example 4), When establishing record identifying codes, 
remember that many characters have either the same zone 
or the same digit portion. For a list of characters that have 
identical zone or digit portions see Appendix D, Table D-4. 


Character 


Use any alphabetic character, special character, or digit in 
columns 27, 34, and 41 to identify the character that was 
used in the record to serve as the code or part of the code, 


Note: If none of the identifying codes you have specified 
is found on a record, processing stops. You may continue, 
however, by pressing START on the processing unit. The 
record that caused the halt is not processed, and the next 
record in that file is read. 


AND Relationship 


A maximum of three identifying characters may be 
described in one specification line. Thus, if the identifica- 
tion code consists of more than three characters, an AND 
line must be used. This means that the first three identify- 
ing characters are described in the first line. The additional 
identifying characters are described in as many following 
lines as are needed. Write the word AND in columns 14-16 
to indicate an AND line (see Examples, Example 1). 


You may specify up to 20 AND or OR lines in any combina- 
tion to describe the record identifying code. The record 
must contain all the characters indicated as its record identi- 
fication code before the record identifying indicator will 
turn on. In an AND relationship, all conditions must be 
met to determine the record type. 
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OR Relationship 


A particular record type may be identified by two different 
codes. If this is the case, OR lines must be used to indicate 
that either one of the codes may be present to identify the 
record, Write the word OR in columns 14-15 to indicate 
an OR line (see Examples, Example 2), A maximum of 20 
AND or OR lines in any combination are allowed in any 
record identification line. 


Seven columns are set aside for the description of one char- 
acter in the record identification code. Each specification 
line contains three sets of seven columns: columns 21-27, 
28-34, and 35-41, Each set consists of 4 fields: Position, 
Not, C/Z/D, and Character. Coding is the same for all three 
sets, 





Examples 


Example 1: Figure 88, insert A shows a record identifica- 
tion code consisting of five characters. The first character 
is located in position 1, the other four record ID tests are 
made in positions 93, 94, 95, and 96. Since only three 
identifying characters may be described on one line, the 
word AND must be used on the next line to indicate that 
the last two characters of the code are part of the preceding 
record identification entries, 


Example 2: Figure 88, insert B shows the use of an OR 

line to describe record type identification codes. The record 
used with record identifying indicator 12 can be identified 
by two different codes. The record can be identified by a 
code consisting of a 5 in position 1 and a 6 in position 2 or 
a code consisting of a 6 in position 1. 
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Example 3: In Figure 88, insert A, the entry in column 32 
indicates that the digit 9 must not be present in position 93 
for the records in the file. 


Example 4: Figure 88, insert A shows that only the zone 
portion of the character T located in position 94 is part of 
the identifying code. In position 96 only the digit portion 
of the character F is part of the code. 


CHARACTER STRUCTURE 


Every alphabetic character, numeric character, or special 
character is represented by different combinations of 
punches in the 80- or 96-column card. Each character 
punched on the card is composed of two parts, a zone 
portion and a digit portion. Even after a character has 
been read into the machine, it is still composed of these 
two parts. Appendix D, Table D-4 shows grouping of 
characters by equal zones and equal digits for the 96- 
‘column card code. Refer to that table while you read the 
following paragraphs. 


A character is represented in the computer by eight mag- 
netic bits. Because the character is represented by six 
punch positions on a card, translation has to take place so 
that it can be represented by eight bits in storage. This is 
an automatic function. Asa result of it, however, the way 
characters are represented in the machine and the way they 
appear on the punched card are not always identical. Not 
all characters having a B zone punched in the card have 
identical zone structures in the machine. 


Whenever you use just the zone or just the digit portions 


of characters in specific functions such as sequencing, testing, 


or identifying records, you must Keep in mind the exact 
structure of the characters when represented in the machine. 
For example, when you are identifying a record type on the 
basis of the zone portion of character D, you must remem- 
ber that several characters have the same zone structure as 
the letter D. If a card with the record identifying code of 

EF is read, it is still considered to be a D type record because 
the zone of character EF is the same as the zone of character 
D. 


Note: Characters with the same zone punch in the card do 
not necessarily have the same representation in the machine. 
For instance, character $ has the same zone punch in the 
card as character K. However, they do not have the same 
zone representation in the machine. 


All characters can be arranged in a certain order according 

to the way, their zone and digit portions are represented in 
the machine. This means that if you are to sequence the 
characters, each character has a special position in relation 

to all others on the basis of its representation in the machine. 


This special order or positioning is known as the collating 
sequence (see Column 26, Alternate Collating Sequence in 
Chapter 3). The characters can also be arranged in a special 
order on the basis of just the zone portion or just the digit 
portion, Each type of sequencing, whether according to 
zone, digit, or the entire character, results in a different 
arrangement of the characters. The standard sequence order 
of the characters, when both zone and digit portions are 
used to sequence, is shown in.A ppendix D, Table D-5. When 
using only the digit or only the zone portion of the charac- 
ter to sequence the characters, remember that often char- 
acters have the same zone or the same digit portion. Thus 
they each rightly belong in the same position. The only 
thing that then determines their position is the order in 
which they are read into the machine. 


Use Table D-4 in Appendix D to determine which characters 
have identical zone and digit portions, All characters in 
each group have either the same zone or the same digit por- 
tions (depending on the figure). The groups are arranged 
from low to high according to the collating sequence sup- 
ported by RPG II. 


Structure of Negative Numbers 


Negative numbers have a different character structure than 
positive numbers because negative numbers are formed by | 
punching a minus sign over the number. Numbers 0-9 have 
only digit portions. However, a minus sign is a B zone 
punch. Thus when the zone punch (minus sign) and the 
digit punch (0-9) are put together, a different character is 
formed. Therefore, negative numbers are represented ‘in 
the machine by the characters. J-R. Negative zeros are 
converted to positive zeros in the system. . 


COLUMN 42 (STACKER SELECT) 


Entry Explanation 

Blank Cards automatically fall into a predetermined 
stacker. 

1-2 Stacker into which the card type is stacked 
for 1442. 

1-4 Stacker into which the card type is stacked 
for 5424 MFCU or 2560 MFCM Model A2. 

1-5 Stacker into which card type is stacked for 


2560 MFCM Model Al. 
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Column 42 is used to indicate that certain types of input 
cards must be stacked in a specific stacker. If you make 
no entry, all cards will go into a predetermined stacker 
as follows: 


Primary Secondary 
Hopper Hopper 
MFCU 1 4 
1442 1 N/A 
Model 15 only . 
MFCM (Model A1) 1 j 5 
MFCM (Model A2) 1 4 


Only input file and combined file cards may be stacker 
selected in the input specifications. 


~ You may stacker select cards from the input file in input 
specifications only. However, cards from a combined file 
may be stacker selected in either input specifications or. 

output specifications (see Column 16 in Chapter 9). 


Any card type that is stacker selected on the input specifi- 
cations should not have an output operation specified for 
it. If an output operation is specified, however, the input 
stacker selection specification is overridden (see Column 16 
in Chapter 9) if the output is performed. 


When the same stacker is used for both input (or combined) 
and output files, a card from the output file is put in the 
stacker before a card from the input or combined file. This 
procedure is reversed (input or combined card before out- 
put card) if Look Ahead Fields or dual I/O areas are speci- 
fied for the input file (a stacker select specification may not 
be made for input files with dual I/O areas). 


The card type in an OR line may be selected for a special 
stacker by an entry in column 42, If the card type in an 
OR line has no entry in column 42, the card goes into the 
predetermined stacker. (See Columns 53-58 in this chap- 
ter for more information on OR lines.) AND lines may not 
have an entry in stacker select. | 


COLUMN 43 (PACKED OR BINARY FIELD) 


Entry Explanation 

Blank Field is in unpacked decimal format, or is 
alphameric. 

P Field is in packed decimal format. 

B Field is in binary format. 


Column 43 is used to indicate that a numeric field is in 
packed decimal or binary format. Numeric data fields in 
packed decimal or binary format must be converted to the 
unpacked decimal format before they can be processed. 
This conversion ignores decimal points. 


Column 43 must contain a P if the input field named in 
columns 53-58 is in packed decimal format. Column 43 
must contain a B if the input field named in columns 53-58 
is in binary format. 


Any array which was read in packed or binary format 
should have an entry in column 43 of the Input Sheet. In 
this case, the From and To columns in the Input Sheet 
should define the positions the array occupies in the rec- 
ord in the packed or binary format. The unpacked decimal 
length of each array element is defined on the Extension 
Sheet. 


Note: When using whole arrays, treat each array element as 
a field. . 


Unpacked Decimal Format 


Unpacked decimal format means that each byte of storage, 
can contain one character. (That character may be a 
decimal number or it may be an alphabetic or special 


. character.) In the unpacked decimal format, each byte 


of storage is divided into a 4-bit zone portion and a 4-bit 
digit portion. Figure 89 shows the unpacked decimal format. 


Note: RPGII does not perform data verification on nu- 
meric data. The value of the digit portion of a character is 
assumed to be the numeric value of that character. 


Qe OE OS 1 0 7 





Figure 89. Unpacked Decimal Format 
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Byte 





1101 = Minus Sign 
1111 = Plus Sign 


The zone portion of the rightmost byte indicates whether 
the decimal number is positive or negative. In unpacked 
decimal format, the zone portion is included for each digit 
in a decimal number; however, only the zone over the 
rightmost digit serves as the sign. Figure 90 shows the 
unpacked decimal format for decimal number 8, 191. 


Once data has been read into the computer, it must be 
represented in unpacked decimal format before it can be 
processed. Thus, it is perfectly correct to read data into the 
computer in the unpacked decimal format. This eliminates 
converting the input data since it is already in the required 
format. - 


Positive 


Zone Zone Sign 


Zone 





ee 4 By tS 


Figure 90. Unpacked Format of Decimal Number 8, 191 
Packed Decimal! Format (P) 


Packed decimal format means that a byte of storage can 
contain two decimal numbers. This format allows you to 
get almost twice as much data into a byte as you can using 
the unpacked decimal format. 


In the packed decimal format, each byte of storage, except 
the rightmost byte, is divided into two 4-bit digit portions. 
The rightmost portion of the rightmost byte contains the 
sign (plus or minus) for that field. Figure 91 shows packed 
decimal format. 


O—_——7 0-7 


Digit Digit | Digit - Sign 
aN i 


. Byte 


Figure 91. Packed Decimal Format 


The sign portion of the rightmost byte is used to indicate 
whether the numeric value represented in the digit portions 
is positive or negative. In the packed decimal format, the 
sign is included for each decimal number; the zone portion 
is not given for each digit in the number. Compare how 
the decimal number 8,191 is represented in packed decimal 
format (Figure 92) with its unpacked representation 
(Figure 90). 


Positive 
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Figure 22. Packed Format of Decimal 8, 191 


Since data must be represented in unpacked decimal format 
once it is inside the computer, you must give the RPG II 
program an indication when input fields are in a different 
format. AP in column 43 indicates that the input field is 
in the packed decimal format and that the system must 
convert this field to the required unpacked format. 


Packed key fields can be up to 8 bytes long. The following 
chart shows the packed equivalents for unpacked fields up 
to 15 byteslong: ~ . 





Unpacked Length | 
in Bytes 


Packed Length 
in Bytes 
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Binary Format 


Binary format means that two bytes of storage can contain 
up to four decimal numbers, and that four bytes of storage 
can contain up to nine decimal numbers. In the binary 
format, each field must be either two or four bytes long. 
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Each 2-byte binary field consists of a 1-bit sign followed by 
a 15-bit numeric value. In binary format, a decimal num- 
ber as high as 9,999 requires only two bytes of storage. 

For each 2-byte binary field stored, the system automati- 
cally sets aside four bytes of storage to accommodate the 
field when it is converted to unpacked format. Figure 93 
shows a 2-byte field in binary format. 


Figure 93. Two-Byte Field in Binary Format 


Each 4-byte binary field consists of a 1-bit sign followed by 
a 31-bit numeric value. In binary format, a decimal number 
as high as 999,999,999 requires only four bytes of storage. 
For each 4-byte binary field the system automatically sets 
aside nine bytes of core storage to accommodate the field 
when it is unpacked. Figure 94 shows a 4-byte field in 
binary format. 


Figure 94. Four-Byte Field in Binary Format 
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Binary fields containing values greater than decimal 9,999 
(4-byte decimal field) or 999,999,999 (9-byte decimal field) 
cannot be converted into 4-byte or 9-byte decimal fields 
without loss of data. High order (leftmost) digits of deci- 
mal numbers longer than four or nine digits are lost in 

such cases. 


The following devices support packed and/or binary data: 
@ Disk (5444, 5445, or 3340) 

@ Tape 

e MFCM 

e@ 1442 

e@ 2501 

e@ 3741 (directly attached) 

Note: For 80-column card devices, any of the 256 EBCDIC 
characters may be read or punched; column binary is not 
supported. For a directly attached 3741, any of the 256 
EBCDIC characters may be read or written. The B or P 


entry in column 43 of the Input Specifications can apply 
to fields from only 80-column cards (not 96-column cards). 


In both 2-byte and 4-byte binary fields, the sign bit indi- 
cates whether the numeric value is positive (sign bit is off) 
or negative (sign bit is on). Notice that in binary format 
the zone portion of the decimal number is not included. 
Compare the binary format of the number 8,191 (Figure 

95) with its packed and unpacked representation (Figures 
90 and 92). Figure 96 shows the binary format of 
-8,191. Note that the sign bit is on (negative number). 
The same procedure shown in Figure 96 can be used to 
convert any negative binary field to decimal. 


Since data must be represented in unpacked decimal for- 
mat once it is inside the computer, you must give the 

RPG II program an indication of when input fields are in 
another format. A B in column 43 indicates that the input 
field is in the binary format and that the system must con- 
vert this field to the required unpacked format. 


COLUMNS 44-51 (FIELD LOCATION) 


Entry Explanation 

Two 1-4 Beginning of a field (From) and end of 

digit field (To). 2g 
numbers 


Positive 
Sign 








! \ l | | 
\4096+2048+1024+ 512 + 256 + 128 


Use columns 44-51 (From and To) to describe the location 
on the record of each field containing input data named in 
columns 53-58 (Field Name). Enter the number of the 
record position in which the field begins in columns 44-47. 
Enter the number of the record position in which the field 
ends in columns 48-51. 


A single position field is defined by putting the same num- 
ber in both From (columns 44-47) and To (columns 48-51). 
If a field of more than one position is defined, the number 
entered in From (columns 44-47) must be smaller than the 
number entered in To (columns 48-51), 


It is not necessary that the From and To columns specify 

a whole array. A portion of an array may be read in; how- 
ever, the array will be read in from element 1 up to as many 
elements as will fit in the numbers specified in the From 
and To columns. 


The maximum field length for a numeric field is 15 posi- 
tions (eight if packed, four if binary). The maximum field 
length for an alphameric field is 256 characters. 


Entries in these columns must end in columns 47 and 51. 
Leading zeros may be omitted. 


Input CRT files display data on the CRT in positions 
121-240; however, when specifying the FROM and TO 
locations, positions 1-120 must be specified. 
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* The numeric value of a positive binary field is obtained by adding the values of the bits 
that are on (represented as 1’s). The sign bit is not included in the addition. 


Figure 95. Binary Format of Decimal Number 8, 191 
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** The numeric value of a negative binary field is obtained by adding the values of the bits 
that are off (represented as 0's), plus one. The sign bit is not included in the addition. 


Figure 96. Binary Format of Decimal Number 8, 191 
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COLUMN 52 (DECIMAL POSITION) 


Entry. Explanation 

Blank Alphameric field. 

0-9 Number of decimal positions in numeric 
field. 


Use column 52 to indicate the number of positions to the 
right of the decimal in any numeéric field named in columns 
53-58. Column 52 must always have an entry when the 
field named in columris 53-58 is numeric. If you wish to 
define a field as numeric with no decimal position, enter a 
0. If a field is to be used in arithmetic operations or is to 
be edited, it must be numeric. The number of decimal 
positions must be less than or equal to the field length. 


COLUMNS 53-58 (FIELD NAME) 


Entry Explanation 


Valid Field name, array name, or array element 
RPG II 
field name 


PAGE 


PAGE]1 Special words 


PAGE2 


Use columns 53-58 to name a field, array, or array element 
found on your input records. If you are réferencing an. 
array, additional entries may be needed in these columns 
(see Tables and Arrays in Chapter 5): Use this name 
throughout the program whenever you refer to this field. 
You must indicate the names of the fields for all types of 
records, However, you should name only the fields that 
you use. 
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Field Names 


A field name can be from one to six characters long, must 
begin in column 53, and must be a valid RPG II name. 


All fields in one type of record should have different names. 
If two or more fields on the same record type have the - 
same name, only the field described last is used. However, 
fields from different record types may have the same name 
if the fields are the same length and contain the same type 
of data. This applies even if the fields are found in differ- 
ent locations in each record type. 


Fields which are read in from a card are limited to the 
length of one punched card. 


Fields that are used in arithmetic operations or fields that 
are edited or zero suppressed (see Column 38 and Columns 
45-70 in Chapter 9) must be defined as numeric. This 
means that column 52 must have a decimal position entry. 


A separate line is used for each field description. 


Field Names in OR Relationship 


Even though two or more record types contain identical 
fields, you must describe each field. This may require 
duplicate coding. To eliminate duplicate coding of identi- 
cal fields from different record types, you may use the OR 
relationship. A maximum of twenty OR or mixed AND 
and OR lines can be used for each record sequence group. 


An OR relationship means that the fields named may be 
found in either one of the record types. You may use OR 
lines when: 


1. | Two or more record types have the same fields in 
the same positions (see Example). 


2. Two or more record types have some fields which 
are identical and some fields which differ in location, 
length, or type of data. See Columns 63-64 in this 
chapter for sample coding of such record types. 


Wiite the word OR in columns 14 and 15 to indicate an 
OR line (see Example). If there are several AND or OR 
lines, field description lines start after the last record identi- 
fication line. 


Special Words (PAGE, PAGE1, PAGE2) 


If your printed report has several pages, you may want to 
number the pages. The special word PAGE allows you to 
indicate that page numbering is to be done. When you use 
a PAGE entry on the Output-Sheet, page numbering auto- 
matically starts with 1 (see Columns 32-37 in Chapter 9). 


If you want to start at a page number other than 1, you 
can enter that page number in a field of an input record 
and name that field PAGE in columns 53-58, The number 
you enter in the PAGE field of the input record should be 
one number less than the starting page number. If your 
numbering should start with 24, enter a 23 in the PAGE 





field. The PAGE field can be of any length (up to 15 posi- 
tions), but must have zero decimal positions specified 
(Figure 97). Any entry you make in the PAGE field should’ 
be right justified, such as 0023. . 


Page numbering can be restarted during a program run by 
entering a number in a PAGE field of any input record. 

The PAGE field can be defined and used in calculations like 
any other field. 


The three possible PAGE entries: PAGE, PAGE], and 
PAGE2 are provided for naming different output files. 
Care must be taken when using the same entry for two 
different output files, 
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COLUMNS 59-60 (CONTROL LEVEL) 


Example 


Explanation 


Entry 


Figure 98 shows how the use of OR lines can save dupli- 


cate coding. The two different record types (one identified 


by a5 in column 1 


Any control level indicator. 


L1-L9 


the other by a 6 in column 1) both 


have identical fields which must be described. Figure 98, 
insert B shows the use of OR lines to do the same thing 


with less coding. The coding in Figure 98, insert B says 


Use columns 59-60 to assign control level indicators to 


input fields. (Control level indicators may not be associ- 


ated with a chained or demand file.) Control level indica- 


that all four fields can be found on either the record type 


tors are used to specify the point at which specified opera- 
tions are to be done. You may assign a control level 


identified by the 5 in column 1 or the record type with a 


6 in column 1. 


GX21-9094 U/M 050° 


Printed in U.S.A, 
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Figure 98. Record Types with Identical Fields: 


indicator to any field except a binary field. This field is 
then known as a control field and is checked for a change 
in information. When information in the control field 
changes, a control break occurs. All records having the 
sanie information in the control field are known as a 
control group. 


Whenever a record containing a control field is selected, 
the data in the control field is compared with data in the 
same control field from the previously selected record. 
When a control break occurs, the control level indicator 
turns on. Operations conditioned by the control level 
indicators are then done (see Columns 7-8 and Columns 
9-17 in Chapter 8 or Columns 23-31 in Chapter 9). 


L1-L9 (Control Level Indicators) 


Control level indicators are used to signal when a change 

in a control field has occurred. Because they turn on when 
the information in a control field changes, they may be 
used to condition operations (such as finding totals) that 
are to be performed only when all records having the same 
information in the control field have been read. They may 
also be used to do total printing or to condition operations 
that are to be done on only the first record in a control 
group. Control level indicators always turn on after the 
first record of a control group is read. 


The indicators are ranked in order of importance with 
larger numbers ranking higher than lower numbers. L4 has 
a higher rank than L1. All lower ranked indicators turn 
on when a higher level indicator turns on. For example, if 
an L8 control break occurs, L1-L7 also turn on. The 
importance of a control field in relation to others should 
determine how you assign indicators. For example, the 
type of data which demands a subtotal has a lower control 
level indicator than data which needs a grand total. A 
field containing department numbers is given a higher con- 
trol level indicator than a field containing employee num- 
bers (see Examples, Example 1). 


Control level indicator LO, since it is always on, cannot 
be assigned to a control field. Nevertheless, you may use 
it to condition operations (see Columns 7-8 in Chapter 8). 
Normally, control level indicators are used to: 


1. Condition certain calculations to be performed 
when the information in the control field changes. 


2. Condition certain punching (summary punching) or 
printing (total printing) to be done after totals have 
been accumulated for one control group. 





3. Condition certain operations to be done on the 
record that causes a change in a control field (first 
record of a new control group). 


Control level indicators may be used in input, calculation, 
and output specifications. 


A control level indicator may be turned on or off by oper- 
ation codes SETON and SETOF and may be used as record 
identifying indicators. However, not all control level indi- 
cators lower than the one specified are turned on or off in 
these cases. For example, when L?2 is set on, L1 does not 
automatically turn on. 


Using Control Fields 
When using control fields, remember: 


1. If the same contro] level indicator is used in differ- 
ent record types or in different files, the control 
fields associated with that control level indicator 
must be the same length and same type (alphabetic 
or numeric). See Examples, Example 2. 


2. In the same record type, record columns in control 
fields assigned different control level indicators may 
overlap (Figure 99). However, the total number of 
columns assigned as control fields (counting each 
control level only once) must not be greater than 
144. In Figure 99 for example, a total of 15 columns 
is assigned to control levels. 
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Field names are ignored in control level operations, 


Therefore, fields from different record types which 


have been assigned the same control level indicator 
may have the same name. 


Control levels need not be written in any sequence. 
L2 entry can appear before L1. Also, there may be 
gaps in the control levels assigned. 


When numeric control fields with decimal positions 
are compared to see if a control break has occurred, 
they are always treated as if they have no decimal 
positions. For example, 3.46 is considered equal to 
346. 


If a field is specified as numeric, only the digit por- 
tion is used to determine if a control break has 
occurred, This means that a field is always con- 
sidered to be positive. A minus five is considered 
equal to a plus five. 


All control fields given the same control level indi- 
cator are considered numeric if any one of those 
control fields is described as numeric (column 52 
has an entry). This means that when numeric con- 
trol fields are compared to see if the information 
has changed, only the digit portion of each character 
is compared. 


Control fields are initialized to hexadecimal (logical) 
zeros or to the lowest alternate collating sequence 
value given. 


A control break is highly probable after the first 
record containing a control field is read. The con- 
trol fields in this record are compared to an area in 
storage which is void of any type of data. Since 


fields from two different records are not being com- | 


pared, total calculations and total output operations 
are bypassed for the first record containing a con- 
trol field. 


If different record types in a file do not have the 
same number of control fields, unwanted control 
breaks may occur. See Examples, Example 3 for a 
method of avoiding unwanted control breaks. 


Split Contro! Fields 


If a control field is made up of more than one field of a 
record, it is then known as a split control field. A split 
control field is created when the same indicator is assigned 
to two or more connected or unconnected fields on the 
same record type. 


All fields in one record that have the same control level 
indicators are combined by the program in the order speci- 
fied in the input specifications and treated as one control 
field (see Examples, Example 4). Some special rules for 
split control fields are: 


1. For one control level indicator, a field may be split 
in some record types and not in others if the field 
names are different. However, the length of the field, 
whether split or not, must be the same in all record 


types. 


2. The length of the portions of a split control field 
may vary for different record types if the field names 
are different. However, the total length of the por- 
tions must always be the same. 


3. No other specification lines may come between lines 
which describe split control fields. 


4. If one section of a split control field is numeric, the 
whole field is considered numeric. 


5. A numeric split control field may have more than 15 
characters if any one portion of the split field does 
not exceed 15 characters and the sum of all control 
fields (counting each control level only once) is not 
greater than 144 characters. 


6. A Split control field cannot be made up of a packed 
decimal field and an unpacked decimal field. Both 
portions of the control field must be packed, or 
both unpacked. 


Note: Additional rules applying to control level indicators 
when used with indicators in the Field Record Relation 
columns are discussed in Columns 63-64 in this chapter. 


a 


Example 2: Figure 100 shows that the same control level 


Examples 


indicators may be used for different record types. Notice, 


Example 1: Figure 100 shows the assignment of three indi- 
cators. The names of the control fields (DIVSON, DEPT, 


EMPLNO) give an indication of their relative importance. 


however, that the‘control fields having the same indicators 


are the same length. EMPLNO, in both cases, is 6 columns 


in length, DEPT is 4, and DIVSON is one. 
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level indicator (L1) assigned. Note the overlap of control 


assigned to it. The employee field has the lowest control 
fields on lines 02 and 06. 


The division (DIVSON) is the most important group. It is 
given the highest control level indicator used (L3). The 
department (DEPT) ranks below the corporation; L2 is 


INPUT SPECIFICATIONS 


IBM International Business Machine Corporation 


75 76 77 78 79 80 


identification 


Program 


t 2 
noLL 


a Card Electro Number 


2 
<& 
a| 
o|a 
c 
22 
£2 
23 
Sg & 
&¢ 
es 


Field 


Field Location 


$ 
mo] 
ie} 
i) 
Cc 
2 
s 
8 
= 
os 
c 
c 
= 
me] 
S 
° 
cs] 
o 
c 


Indicators 


uorejay P1oday platy 


spiaty Burmeyg 
4O spjary Buiyaiey 


(61-47) $2487] JOUOD 


Field Name 


SUOIySOY JeWI9IQ 


























T| Sew) OSes CT . 
e{ TT [Toga | 

















aoe ied te a oe SS 
ofQy tT tT tt trp te te pt pt }| |_| | is g 





Figure 100. Control Level Indicators (Two Record Types) 


147 


Input Specifications 


Example 3: Different record types normally contain the 
same number of control fields. However, some applications 
require a different number of control fields in some records. 
This is shown in Figure 101, insert A. The salesman records 
contain only the L2 control field. The item records con- 
tain both L2 and L1 control fields. 


With normal RPG II coding, an unwanted control break is 
created by the first item record following the salesman 
record, This is recognized by an L1 control break imme- 
diately following the salesman record and results in an 
asterisk being printed on the line below the salesman 
record (see Figure 101, insert B). 


Figure 101, inserts C and D, contain excerpts from a prog- 
ram that processes the input shown in Figure 101, insert A, 
and prevents the unwanted control break from occurring. 
The corrected output produced is shown in Figure 101, 
insert B. 


Line 01 of the Calculation sheet sets on indicator 11 when 
the salesman record is read. When the next item record 
causes an L1 control break, no total output is printed be- 
cause indicator 11 is on (line 07 of Output Sheet). Detail 
calculations are then processed for the item record and 
line 02 of the Calculation Sheet sets indicator 11 off. This 
allows the normal L1 control break to occur. 
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Example 4: Figure 102 shows a split control field made up 

of three portions. The control level indicator (L4) which 

is used for all three portions indicates that they are all to 

be treated as one control field. The field can be pictured 

as follows: 
CUSNO 


ACCTNO REGNO 


1679 865397 111 


The first field assigned the same control level indicator 
begins the control field; the last ends it. 


COLUMNS 61-62 (MATCHING FIELDS) 
Entry Explanation 


M1-M9 Any matching level 


Use columns 61-62 to specify matching fields and sequence 
checking, 


An entry in columns 61-62 indicates: | 


1. Matching fields and sequence checking when you 
have two or more input, update, or combined files 
with match fields (see general discussion that follows 
under Multifile Processing). 


2. Only sequence checking when you have just one 
input, update, or combined file. 


Matching Fields 


Make an entry in columns 61-62 when you wish‘to compare 
records from two or more input, update, or combined files 
in order to determine when records match. Records can be 
matched by matching one field, many fields, or entire 
records, You can indicate as many as nine matching fields 
(M1-M9). Whenever the contents of the match fields from 
records of the primary file are the same as the contents of 
the match fields from a secondary file, the matching 

record (MR) indicator turns on. M1-M9 are used only to 
identify fields by which records are matched. The values 
M1-M9 are not indicators, but do cause MR to turn on 
when a match occurs. Matching is allowed with primary 
and secondary files only. Figures 103 and 104 show selection 
of records by matching fields from two or three input files. 
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Match Field 


The records from the two files are processed 
in the order shown here. The single, merged 
file is shown mainly for illustration purposes, 
although the files could be merged. 


The MR indicator is on during processing 
of the shaded records. 


First Record Processed 
(Records without match 
fields are selected before 
records with match fields) 


Figure 103. Processing Two Files by Matching Fields 
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When records have no match, : 
Q) the record with the lowest 


sequence number is processed 


—— first, regardless of file. 


All matching secondary records are 
processed after the primary record (s). 


Input Specifications 153 









Match field 


No match 
field 


The records from the three input files are 
n the or 


et 
rocessed in the order shown here e single 
line of records i i 






p 
ne 
purposes, and is not meant to imply merging 
‘anged i 
t 


EWWGG NV 
SW | 


: re arranged in 
his manner only to show the order of 
ord selection. 









SS 

















Selection of the first ten records is 
discussed in detail in Parts'2 and 3 
of this figure. 


Figure 104 (Part 1 of 3). Normal Record Selection from Three Files 
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The first record from each file is 


read. The P and S records have 
T 10 no match field, so they are pro- 
Step cessed before the T record which 
1 has a match field. Because the 
P record comes from the primary 
file, it is selected for processing 


first. 


T 10 The next P record is read. It con- 
Step tains no match field, and comes 
2 from the primary file, so the new 
P record is also selected for pro- 
cessing before the S record. 
T 10 The next P record read has a match 
Step field. The S record has no match 
3 field, so it is selected for processing. 
; The next S record is read. All three 
T 10 records have match fields. Because 
Step the value in the match field of the T 
4 record is lower than the value in the 
other two, the T record is selected 
for processing. 


The next T record is read. The match- 


ing P and S records both have the low 
T 30 z 
6: match field value, so they are pro- 
cessed before the T record. Since the 
, matching P record comes from the 
primary file, it is selected for proces- 


sing first. MR indicator is turned on 
at this point. 














Figure 104 (Part 2 of 3). Normal Record Selection from Three Files 
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T 30 


The next P record is read. Because it / 
contains the same match field and \ 














Step 
6 comes from the primary file, the new 
P record is selected instead of the S 
record. 
T 30 . 
Step _ The next P record is read. The value 
7 of the match field in the S record is 
the lowest of the three, so the S 
record is selected for processing. 
The next S record is read. Because 
T 30 the S and T records match and have 
Step the lowest match field, they are 
8 selected before the P record. Because 
the S record comes from the first 
secondary file, it is selected for 
processing before the T record. 
T 30 The next S record is read. Because 
Step it also has the same match field as 
9 the S record just selected, it too is 
selected before the T record. 
Te The next S record is read. The T 
4 record contains the lowest match 


Figure 104 (Part 3 of 3). Normal Record Selection from Three Files 
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field value, and is selected for proc- 
essing. 


MR (Matching Record Indicator) 


Use the MR indicator to condition calculation and output 
operations which are to be done only when records match, 


The MR indicator turns on when a primary file record 
matches any secondary file record on the basis of the 
matching fields indicated by M1-M9. The matching record 
indicator is always set before detail calculations. It retains 
this setting for one complete cycle. If all primary file 
records match all secondary file records, the MR indicator 
is always on. If record types for which no matching fields 
have been specified are read, MR is turned off. 


A record selected by FORCE causes the MR indicator to 
remain off for one cycle while the forced record is pro- 
cessed. . 


Sequence Checking 


Make an entry in columns 61-62 when you want to sequence 
check records within one input, update, or combined file. 
This entry causes sequence checking of the data in the 

fields to which M1-M9 have been assigned (see Columns 
15-16 in this chapter for sequence checking of record types). 


You may use as many as nine fields (M1-M9) to sequence 
check. The sequence (ascending or descending) of your 
record file must be specified in the file description specifica- 
tions (see Column 18 in Chapter 4). An entry in columns 
61-62 indicates that the records are to be checked to see if 
they really are in the sequence specified (see Examples, 
Example 3). 


MULTIFILE PROCESSING 


Multifile processing applies to programs that read records 
from a primary file and one or more secondary files, It is 
the name given to the methods by which programs select 
records for processing, The method used depends upon 
whether or not match fields are used in the records, 


No Match Fields 

When no match fields are used, records are selected from 
one file at a time. When the records from one file have all 
been processed, records from the next file are selected. The 
files are processed in this order: 

1. Primary file. 

2. Secondary files in the order in which they are 


described in the file description specifications. 


Match Fields 


' When match fields are used, records are selected according 


to the contents of the match fields. One record is read 
from every file, and the match fields in the records are com- 
pared. If the records are in ascending order, the record with 
the lowest match field is selected for processing. If the 
records are in descending order, the record with the highest 
match field is selected. 


When a record is selected from a file and processing from 


‘that file takes place, the next record from the file is read. 


At the beginning of the next program cycle, the new record 
is compared with the records that had not been selected 
during the previous cycle, and one is selected. 


Records without match fields can be included in the files. 
Such records are selected before records with match fields, 
If two or more of the records being compared have no 
match fields, selection of those records is determined by 
the priority of the files from which the records came. 


When the primary record matches one or more of the 
secondary records, the MR indicator is turned on. The 
indicator can be used to condition calculations or output 
for the record that is selected. If one of the matching 
records must be selected, the selection is determined by 
the priority of the files from which the records came. 


For a discussion of multifile processing at end-of-file, see 
Column 17 (End of File) in Chapter 4. 
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Assigning Matching Field Values 
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Sequence checking is automatically done for all 
record types with matching field specifications. The 
contents of the fields to which M1-M9 have been 
assigned are checked for correct sequence. An error 
in sequence stops the program. The record which 
caused the halt is not processed. When the machine 
is restarted, the next record from the same file is _ 
read, Thus, all matching fields must be in the same 
order, either all ascending or all descending (see 
Column 18 in Chapter 4). | 


Not all files used in the job must have matching fields, — 


Not all record -types within one file must have match- | 
ing fields either, However, at least one record type 
from two files must have matching fields if files are 
ever to be matched. 


The same number of matching fields must be 
specified for all record types which are used in 
matching. The same matching record values must 
also be used for all types (see Examples, Example 1). 


All match fields given the same matching record 
value (M1-M9) must be the same length and type 
(alphameric or numeric). 


Note: When using packed fields the unpacked length 
[(2 x packed length)-1] is regarded as the length of 
the matched field. 


~ Record columns of different matching fields may 


overlap, but the total length of all fields must not 
exceed 144 characters, 


If more than one matching field is specified for a 
record type, all the fields are combined and treated 
as one continuous matching field (see Examples, © 
Example 2), They are combined according to 
descending sequence (M9-M1) of matching record 
values. 


_ Matching fields may not be split. This means that 


the same matching field value cannot be used twice 
for one type of record. 


Matching fields may be either alphameric or numeric 
(but not binary). However, all matching fields given 
the same matching record value (M1-M9) are consider- 
ed numeric if any of those matching fields is described 
as numeric. Numeric matching fields contain only the 
digits 0-9. Thus, matching fields of 050 and b50 
(where $ denotes blank) will compare equal. 


10. 


12. 


13. 


14. 


15. 


' When numeric fields having decimal positions are 


matched, they are treated as if they had no decimal 
position. 


Only the digit portions of numeric match fields are 
compared, Even though a field is negative it is con- 
sidered to be positive since the sign of the numeric 

field is ignored. Thus, a -5 will match with a +5, 


Whenever more than one matching record value is 
used, all match fields must match before the MR 
indicator turns on. For example, if matching fields 
M1, M2, M3 are specified, all three fields from the 
primary file must match all three fields from the other 
record, A match on only the M1 and M2 fields will 
not turn on the MR indicator (see Examples, 

Example 1). 


Field names are ignored in matching record opera- 
tions, Therefore, fields from different record types 
which have been assigned the same match level may 
have the same name. 


If you have defined an alternate collating sequence 
for your program, alphameric fields are matched 
according to the sequence you have specified. 


_ Matching fields contain a corresponding initial alter- 


nate collating sequence value; that is, they are set to 
the lowest alternate sequence value if ascending 
sequence is specified, and to the highest alternate 
sequence value if descending sequence is specified. 


Matching is not allowed with demand or chained files. 


If a program contains files with match fields as well as . 
files without match fields, the files without match 
fields are processed before the files with match fields. 


Note: Additional rules applying to matching records 
when used with entries in the Field Record Relation 
columns are discussed in Columns 63-64 in this chapter. 


Processing Matching Records—Two or More Files 


1. 


Whenever a record from the primary file matches a 
record from the secondary file, the primary file __ 
record is processed first. Then the matching second- 
ary file record is processed unless another file is 
forced (see Operation Codes, FORCE in Chapter 8). 
Remember, the record identifying indicator which 
identifies the record type just selected is on at the 
time the record is processed, This indicator is often 
used to control the type of processing that takes 
place. . en 


For additional information on matching records from more 
than two files see Operation Codes, FORCE in Chapter 8. 


match, the record having the lowest match field 
content is processed first (Figure 103). Whenever 
‘records from descending files do not match, the 


Whenever records from ascending files do not 


2. 


record having the highest match field content is 


processed first. 


Examples 


Example 1: Figure 105 shows three record types that are 
used in matching records. All record types have three 


matching fields specified and all use the same values (M1, 
M2, M3) to indicate which fields must match. The MR 


A record type which has no matching field specifica- 
follows. The MR indicator is off. If this record type 


tion is processed immediately after the record it 


a: 


indicator turns on only if all three match fields in either 
of the record types from the MASTER file are the same as 


all three fields from the record in the WEEKLY file. 


is first in the file, it is processed first even if it is not 


in the primary file (Figure 103). 


The matching of records makes it possible to enter 


data from primary records into their matching sec- 


4. 


ondary records since the primary record is processed 


before the matching secondary record. However, the 


transfer of data from secondary records into match- 


ing primary records can only be done through look 


-ahead fields (see Columns 19-20 in Chapter 7). 
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Input Specifications 


Example 2: Figure 105 indicates three matching fields on 
one record. These three are combined and treated as one © 
matching field organized as follows: 

DIVSON 


DEPT EMPLNO 


M3 M2 M1 
The order in which the fields are specified on the input 


specifications does not affect the organization of the match 
fields in the computer. 


Example 3: An input file called MASTER is to be 
sequence checked using three fields (Figure 106). Data 
from two records is shown below: 


Data from First Record Data from Second Record 
DEPT 008 DEPT 003 
REGION 051 REGION 025 


DIVSON 003 DIVSON — 005 


In sequence checking, all fields are treated as one continu- 
ous field. Thus, the matching fields look like: 


M3 M2 M1 


Record 1 003 051 008 
Record 2 005 025 003 


The matching field from record 1 is compared with the 
matching field from record 2. If the file is specified to be 
in ascending sequence, the records are in order since 
005025003 is higher than 003051008. However, if the 
file is specified as having a descending sequence, card 2 is 
out of order and a halt occurs. 


COLUMNS 63-64 (FIELD RECORD RELATION) 


Entry Explanation 

01-99 Record identifying indicator assigned to a 
record type. 

L1-L9 Control level indicator previously used. 

MR Matching record indicator. 

U1-U8 External indicator previously set. 

H1-H9 Halt indicator previously used. 
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Columns 63-64 have several uses which are discussed after 
these general rules: 


1. All fields, including matching or control fields, that 
have no field record relation specification should 
come before those that do. 


2. All fields related to one record type (that is, having 
the same Field Record Relation entry) should be 
entered as a group in specification lines following 
one another for more efficient use of core storage. 
These fields could, however, be entered in any order. 


3. All portions of a split control field must be assigned 
the same field record relation indicator and must be 
entered as a group in specification lines following 
one another (see Examples, Example 1). For more 
information on split control fields, see Columns 
59-60 in this chapter. 


4. | When used with match or control fields, the field 
record relation indicator must match a record identi- 
fying indicator for this file, and the match or control 
fields must be grouped according to the field record 
relation indicator. 


5. When any match value (M1-M9) is specified without 
field record relation, all match values used must be 
specified once without field record relation. If all 
match fields are not common to all records, a dummy 
match field should be used. 


Record Identifying Indicators (01-99) 


Columns 63-64 are commonly used when several record 
types have been specified in an OR relationship. Fields 
which have no field record relation indicator are associated 
with all the record types in the OR relationship. This is 
fine when all record types have the same fields. But if the 
record types in the OR relationship have some fields that 
are the same and some that are not the same, you do not 
want to associate every field with all records. Therefore, 
you must have some way of relating a field to a certain 
record, To do this, place in columns 63-64 the record 
identifying indicator found in columns 19-20 of the record 
type on which the field is found, or specify an indicator 
(01-99) which was previously defined in your program and 
which you now wish to use to condition data movement 
from the input area to the storage area (see Examples, 
Example 2). 


Control fields (indicated by entries in columns 59-60) and 
matching fields (indicated by entries in columns 61-62) may 
also be related to a particular record type in an OR relation- 
ship by a field record relation entry. Control fields or 


matching fields that are not related to any particular record 
type in the OR relationship by the field record relation 
indicator are used with all record types in the OR relation- 
ship. 


When two control fields have the same control level indica- 
tor or two matching fields have the same matching level 
entry, it is possible to assign a field record relation indicator 
to just one of the control fields or to just one of the match- 
ing fields. In this case, only the specification having the 
field record relation indicator is used when that indicator is 
on. If none of the field record relation indicators are on for 
that control field or matching field, the specification with- 
out a field record relation indicator is used. Control fields 
and matching fields cannot have an L1-L9, U1-U8, or MR 
entry in columns 63-64. 


Control Level (L1-L9) and Matching Record (MR) 
Indicators 


Another situation for which you may use these columns is 


. When you wish to accept and use data from a particular 


field only when a certain condition (such as matching 
records or a control break) occurs. You indicate the condi- 
tions under which you accept data from a field by indicator 
L1-L9 or MR. Data from the field named in columns 53-58 
is accepted only when the indicator is on (see Examples, 
Example 3). 


External Indicators (U1-U8) 


You may also use these columns to condition a specifica- 
tion by an external indicator (U1-U8). The external indi- 
cator which you set prior to processing conditions whether 
a field is to be used in the program. When the indicator is 
on, the field is read; when the indicator is off, the field is . 
not read. 


External indicators are primarily used when file condition- 
ing is done by an entry in columns 71-72 in the file descrip- 
tion specifications. However, they may also be used to 
condition when a specification should or should not be 
done even though file conditioning is not specified. See 
Columns 71-72 in Chapter 4. 


Halt Indicators (H1-H9) 


A halt indicator is used to relate a field to a record that is 
in an OR relationship and also has a halt indicator specified 
in columns 19-20. 
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Examples The record with a 2 in column 95 has three split control 
. fields, 
Example 1: Split control fields on one record type must 
have the same record relation entry. Figure 107, insert A, FLD1A and FLDIB 
shows several record types with split control fields in each. FLD2A and FLD2B 
The record identified by a J in column 95 has two split FLD3A, FLD3B, and FLD3C 
control fields: 
The third record type, identified by the 3 in column 95, 
FLDIA and FLD1B_ also has three split control fields: 
FLD2A and FLD2B 
FLDIA and FLD1B 
FLD2A and FLD2B 
FLD3D and FLD3E 
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All portions of the split control field must be assigned the 


same contro] level indicator and all must have the same 


field record relation entry. Figure 107, insert B, shows the 
field record relation required for the three record types. 
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Input Specifications 


Example 2: Figure 108 shows how record identifying indi- Example 3: Suppose you were printing a monthly report 


cators are used to relate a field to a record. The file con- showing all items sold in each department in your company. 
tains two different types of records, one identified by a5 You also want the report to list the name of the manager of 
in column 1 and the other by a6 in column 1. FLDC is each department. Each input record then has the depart- 


related by record identifying indicator 14 to the record type | ment number (DEPT), the manager’s name (MANAGR), 
which is identified by a5 in column 1. FLDD is related to and one item (ITEM) that was sold by that department. 
the record type having a 6 in column 1 by record identify- Fields are described as shown in Figure 109. The records 
ing indicator 16, This means that FLDC is found on only are arranged in order by department. 

one type of record (that identified by 5 in column 1) and 
FLDD is found only on the other type. FLDA is condi- 
tioned by indicator 07 which you had previously defined 
elsewhere in your program. FLDB is found on both types 
since it is not related to any one type by a record identifying 
indicator. 
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Figure 109. Field Record Relation: Accepting Data From a Field 


In the report it is not necessary to print the manager’s 
name for every item that was sold in his department. 
Instead, it should be printed only when the first record 
containing an item sold in a different department is read, 
The field called DEPT is established as a control field. 


Remember that the manager’s name is printed only when 
information in the control field changes. Thus the infor- 
mation from the field called MANAGR is not used often. 
It would be wasted time to accept that information every 
time a record is read. The L1 entry in columns 63-64 
indicates that the data from the field called MANAGR is 
to be accepted only when a control break occurs. 
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COLUMNS 65-70 (FIELD INDICATORS) 
Entry Explanation 
01-99 Field indicator. 


H1-H9 Halt indicator (when checking for an 
error condition in the data). 


Use field indicators 01-99 when you wish to test a field for 
a condition of either plus, minus, zero, or blank. The indi- 
cator specified turns on if the condition is true for the 
input record; it remains off or turns off if the condition is 
not true for the input record. You usually use these same 
indicators to control certain calculation or output opera- 
tions (see Columns 9-17 in Chapter 8 or Columns 23-31 

in Chapter 9). ; 
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The three conditions you may check for are: 


1. Plus(columns 65-66). Any valid indicator entered 
here is turned on if the numeric field named in 
columns 53-58 is greater than zero. 


2. Minus (columns 67-68). Any valid indicator entered 
here is turned on if the numeric field in columns 
53-58 is less than zero. 


3. Zero or blank (columns 69-70). Any valid indicator 
entered here is turned on if a numeric field named in 
columns 53-58 is all zeros or if an alphameric field is 
all blanks. : 

A numeric field (from the record), which is all blanks, 
turns on an indicator specified for all zeros. How- 
ever, if an alphameric field is all zeros, the field will 
not turn on an indicator specified for all blanks. 


In the input specifications, you specify the indicators that 
will be used to condition operations, In the calculation 
specifications and output specifications, you actually use 
these indicators. When conditioning operations, you 
must know when the indicators will be off and when they 
will be on. When assigning and using field indicators in 
columns 65-70, remember: 


1. Indicators for plus or minus are off at the beginning 
of the program. They are not turned on until the 
condition (plus or minus) is satisfied by the field 
being tested on the card just read. 


2. An indicator assigned to zero or blank is off at the 
beginning of the program. It remains off until the 
field being tested is zero or blank. 


3. One input field may be assigned two or three field 
indicators. However, only the one which signals the 
result of the test turns on; the others are turned off. 


4. Ifthe same field indicator is assigned to fields in 
different record types, its status is always based on 
the last record type selected. 


5. | When different field indicators are assigned to fields 
in different record types, a field indicator turned on 
will remain on until another record of that type is 
read, Similarly, a field indicator assigned to more 
than one field within a single record type will always 
reflect the status of the last field defined. 


6. Field indicators assigned in these columns may be 
SETON or SETOF in calculation specifications. : 
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Halt Indicators 


Specify any halt indicator (H1-H9) in columns 65-70 when 
you wish to check for an error condition in your data, For 
example, if a field should not be zero, you can specify a 
halt indicator to check for that zero condition. If a zero 
field is found, the halt indicator turns on and the job stops 
after the record with the zero field has been processed. 


Indicators H1-H9 cause the program to halt after the 
record which caused the indicator to turn on is completely 
processed. 


COLUMNS 71-74 


Columns 71-74 are not used. 


COLUMNS 75-80 (PROGRAM IDENTIFICATION) 


See Chapter 2, 


Chapter 8. Calculation Specifications 


What tests are to be made on the results of the oper- 


3. 


Calculation specifications describe the calculations you 


ation (columns 54-59). The indicators entered here 


want performed on your data and the order in which you 


signal the result of the operation and may serve to 


condition other operations. 


want them performed. Each calculation specification can 


be divided into three parts that indicate: 


Write these specifications on the Calculation Sheet 


(Figure 110). 


When the operation is to be performed (columns 


1. 


7-17). The indicators entered in these columns deter- 
mine under what conditions the operation specified 


is to be done. 


COLUMNS 1-2 (PAGE) 


What kind of operation (columns 28-32) is to be 


2, 


See Chapter 2. 


performed on the data in columns 18-27 and/or 


columns 33-42, Entries in these fields describe the 
_kind of operation to be done. They also specify the 


COLUMNS 3-5 (LINE) 


data upon which the operation is to be performed. 


See Chapter 2, 
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Calculation Specifications 


COLUMN 6 (FORM TYPE) 


A C must appear in column 6. 


COLUMNS 7-8 (CONTROL LEVEL) 


Entry 


Explanation 

Blank Calculation operation is not part of a sub- 
routine and may only be performed for 
detail calculations. 

LO, Calculation operation is done when the 

' LI-L9 appropriate control break occurs or an 

indicator is set on (LO is always on). 

LR Calculation operation is done after the 
last record has been processed or after the 
LR indicator has been set on by a SETON 
operation. 

SR Calculation operation is part of a subroutine. 

AN,OR _ Establishes AN and OR relationships 


between lines of indicators. 
If you leave columns 7-8 blank, the operation specified on 
the same line is done every time a record is read, provided 
indicators in columns 9-17 of that line or AN/OR lines 
associated with that line allow it (see Columns 9-17 in this 
chapter). 


Calculations must be specified in the following order: 


1. Detail (blank in columns 7-8). 


2. Total (LO or L1-L9 in columns 7-8). 


3. Last record (LR in columns 7-8). LR calculations 
must appear after L1-L9 calculations. 


4. Subroutine (SR in columns 7-8). 


AN/OR lines can appear within any of the above calcula- 
tions, 
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Control! Level Indicators (LO, L1-L9) 


The LO indicator is on during the entire program. You 
need never assign this indicator, but you may use it. The 
indicator is often used when no control fields have been 
assigned. Remember that when a control break occurs, all 
operations conditioned by control level indicators are done 
before those that are not conditioned. If you have no con- 
trol field but want total calculations to be done and total 
output records to be written or punched, you may use the 
LO indicator to condition those operations (see Examples, 
Example 1), 


Use control level indicators L1-L9 to signal when certain 
operations are to occur. If you specify a control level 
indicator (L1-L9) in columns 7-8, the operation described 
on the same specifications line is done only when that 
indicator ison. Remember that a control level indicator 
turns on when information in a control field changes (see 
Columns 59-60 in Chapter 7), 


A control break for a certain level causes all lower control 
level indicators to turn on. Thus, if you used indicators 
L3, L2, and L1 in your program, and L3 turns on, L1 and 
L2 will also turn on. All operations conditioned by L3, 
L2, and L1 will be done. Exceptions are as follows: 


1. Whenacontrol level indicator used as a record 
identifying indicator turns on to reflect the type of 
record read, only that one control level indicator _ 
turns on. 


2. | When a control level indicator is turned on by the 
SETON instruction, only that one control level 
indicator turns on. . 


Note: In one program cycle, all operations conditioned 
by control level indicators in columns 7-8 are done at total 
calculation time. Operations that are conditioned by con- 
trol level indicators in columns 9-17 are done at detail 
calculation time immediately following the control break. 


LR (Last Record Indicator) 


Use the LR indicator to condition all operations that are-to 
be done only at the end of the job. The LR and L1-L9 
indicators automatically turn on after the last record of 
the input file has been processed. It is also possible to turn 
the LR indicator on by a SETON operation. This does not, 


~ however, cause all other control level indicators used to 


turn on at that point. (LR cannot be turned off by a 
SETOF operation.) If LR is on, the job ends after all 
total operations have been performed. 


Subroutine Lines (SR) 


Use columns 7-8 to indicate that a line is part of a sub- 
routine (see Subroutines in Chapter 8). Subroutine lines 
must be specified last. 


AN/OR Lines 


Columns 7-8 can be used to specify that lines of indicators 
are in an AN/OR relationship. By using the AN/OR 
relationship, many lines of indicators may be grouped to- 
gether to condition an operation. A maximum of seven 
AN, OR or AN/OR lines may be used to condition an oper- 
ation. 


The first line of such a group contains blanks in columns 
7-8, or an LO-L9, LR, or SR entry if the group of lines is 
conditioned by a control level indicator or is part of a sub- 
routine. All lines after the first line in the group must have 
an AN or OR entry in columns 7-8, The indicators on each 
line are in an AND relationship. It is not necessary to have 
three indicators on each AN and OR line, but an AN/OR 
group must have at least one indicator. The last line of the 
group contains the operation and the necessary operands. 
All lines in the group prior to the last line must contain 
blanks in the columns for Factor 1, Factor 2, Operation, 
Result Field, and Resulting Indicator (see Examples, Ex- 
ample 2 and 3). 


Note: If LR is used as a resulting indicator, NLR should 
be used as a conditional indicator to avoid setting off LR. 





Examples 

Example 1: Figure 111 shows the format of the report 
printed by the job described in Figure 112. The job shows 
how total operations can be performed even though there 
is no control field (no L1-L9 indicators). The job requires: 
1. A list of items sold in each district. 


2. A total of all sales for each district. 


3. A grand total of all sales in all districts. 


216.28** 


Figure 111. Format of a Printed Report 
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The input records have ITEM and COST fields and a one 
column record identification field. The records are grouped 
in ascending sequence by district. The record identification 
code is used to tell which district a record is from. For 
example, records from district one are identified either by 

a J oran Mincolumn 1. Records from district two are 
identified either by a 2 or an N in column 1 (Figure 112, 
insert A). 


No field on the records can serve as a control field. Cer- 
tainly, ITEM and COST cannot. The record identifying 
field cannot either since one district can be identified by 
two different codes, This means that the contents of this 
one column identifying field can change even though the 
district number cannot. Therefore, in order to get total 
operations without the use of a control field, LO must be 
used (See line 05 of Figure 112, insert B). Assume that the 
five records shown in Figure 113 are read. Refer to 
Figure 112 as you read the description of operations per- 
formed for each record read. — 
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Indicators On Operations Performed 


LO Q1 turns on. 
No total operations are per- 
formed because conditions 
in lines 5 and 6 (Calculations 
Sheet) are not met. 

_ (Remember that operations 
conditioned by control level 
indicators in columns 7-8 are 
performed first, but are by- 
passed on the first RPG II 
cycle). 
COST is added to DISTOT. 
21 is set on. . 
ITEM and COST are printed 
‘out. 
01 is turned off. 

_ 21 remains on. 


O1 is turned on. 


LO, 21 
No total operations are 
performed. 
COST is added to DISTOT. 
ITEM and COST are printed 
out. 
01 is turned off. 
21 remains on. 
LO, 21 Q2 turns on. - 
DISTOT is added to GDTOT. 
(Conditions for the total 
operation in line 5 have been 
met.) . 
DISTOT is printed out. 
COST is added to DISTOT. 
21 is set off. 
ITEM and COST are printed 
out. 
02 is turned off. 
LO - 02 is turned on. 
No total operations are 
performed. 
COST added to DISTOT. 
ITEM and COST are printed 
out. 
02 is turned off. 
LR DISTOT added to GDTOT 
(LR indicator is on). ° 
DISTOT and GDTOT 


printed out. 


Example 2: Figure 114, insert A shows the use of AN 
and OR entries to group lines of indicators. When indica- 
tors 01, 02, 03 and 04 are on, or when indicators 01, 02, 
03 and 05 are on, the calculation will be performed. — 


Example 3: Figure 114, insert B illustrates a case in which 
three additional conditions will cause the LA total calcula- 
tions to be performed: .01 and 02 are on, but not 03; or 
01 and 03 are on, but not 02; or 02 and 03 are on but not 
01. 


COLUMNS 9-17 (INDICATORS) 


Entry Explanation 
- Blank Operation is performed for every record | 

read if columns 7-8 are not LO or L1-L9 or 
SR. | 

01-99 Resulting indicators used elsewhere in the 
program. 

L1-L9 Control level indicators previously assigned, 

LR Last record indicator. 

MR Matching record indicator. 

H1-H9 Halt Indicators assigned elsewhere. 

U1-U8 External indicators previously set. 

OA-OG, Overflow indicator previously assigned. 

OV 


Use columns 9-17 to assign indicators that control when an 
operation is or is not to be done. You may use from one to 
three indicators on a line. By using AN or OR entries in 
columns 7-8, many indicators can be used to condition one 
operation. A maximum of seven AN or OR lines in any 
combination are allowed. 


There are three separate fields (9-11, 12-14, and 15-17) on 
each line, one for each indicator. If the indicator must not 
be on in order to condition the operation, place an N before 
the appropriate indicator (columns 9, 12, 15). 


All three indicators on one line are in an AND relationship 


with each other. The indicators on one line, or indicators 


in grouped lines, plus the control level indicator (if used in 
columns 7-8) must all be exactly as specified before the 
operation is done (see Examples, Example 1). 


z a a a 
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Figure 114. Use of AND/OR Lines for Indicators 


® 


Indicators are used as follows in columns 9-17: 


@ Use any record identifying indicators previously speci- 
fied in columns 19-20 on the Input Sheet to condition 
an operation that is to be done only for a certain type 
of record (see Examples, Example 1). 


© Use any field indicators previously specified in columns 
65-70 on the Input Sheet to condition an operation that 
is to be done only after the status of a field has been 
checked and has met certain conditions (see Examples, 
Example 3). 


@ Use any resulting indicators specified in columns 54-59 
on the Calculation Sheet to condition operations 
according to the results of previous calculation opera- 


tions (see the example in Columns 54-59 in this chapter). 


@ Use any halt indicators previously used in columns 
65-70 on the Input Sheet or in columns 54-59 on the 
Calculation Sheet to prevent the operation from being 
done when a specified error condition has been found in 
the input data (see Columns 19-20 in Chapter 7) or on 
previous calculations, This is necessary because the 
record that causes the halt condition will be completely 
processed before your program stops, Thus, if the oper- 
ation is performed even on an error condition, the 
results are in error. It is also possible to use a halt indi- 
cator to condition an operation that is to be done only 
when an error occurs, _ 


@ Use the matching record (MR) indicator to condition 
an operation that is to be done only when matching 
records have been found. 


@ Use any external indicator, including any previously 
specified in columns 71-72 on the File Description 
Sheet, to condition which operations should be done 
and which files should be used for a specific job. 


© Tocondition operations to be performed at end of job, 
use the last record (LR) indicator in columns 9-17 only 
if LR is turned on during calculations. If LR is off 
during calculations, then all operations to be performed 
at end of job should be conditioned by LR in columns 
7-8. 


‘Note: If LRis used as a resulting indicator, then NLR 
should be used as a conditioning indicator to avoid set- 
ting off LR. 


@ Use any control level indicators specified in columns 
59-60 on the Input Sheet, or in columns 54-59 on the 
Calculation Sheet. If control level indicators are used 
in these columns instead of in columns 7-8, the opera- 
tion is performed on only the first record of a new con- 
trol group at detail calculations time. 
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@ - Use any overflow indicators previously specified in 
columns 33-34 on the File Description Sheet to condi- 
tion operations that are to be done when overflow 
occurs, See Columns 33-34 in Chapter 4 for a discus- 
sion of overflow. 


The relationship between columns 7-8 and columns 9-17 
is as follows: 


© When acontrol level indicator (L1-L9) is specified in 

columns 7-8 and MR is specified in columns 9-17, MR 
indicates the matching condition of the previous record 
and not the one just read that caused the control break. 
After all operations conditioned by control level indica- 
tors (specified in columns 7-8 of the Calculation Sheet) 
are done, MR then indicates the matching condition of 
the record just read. 


@ When acontrol level indicator is used in columns 9-17 
and columns 7-8 are not used, the operation conditioned 
by the indicator is done only on the record that causes 
that control break or any higher level control break. ~ 


@ In one program cycle all operations conditioned by 
control level indicators in columns 7-8 are done before 
operations that are conditioned by control level indica- 
tors in columns 9-17 (see Examples, Example 4). 


Examples 


Example I: Figure 115 shows the use of control level 
indicators to condition calculation operations. The opera- 
tion in line 02 may be done when the L2 indicator is on, 
provided indicator 10 is on and L3 is not on. 


The operation conditioned both by L2 and NL3 is done 
only when a control level 2 break occurs. These two indi- 
cators are used together because this operation is not to, be 
done when a control level 3 break occurs, even though L2 
isalsoon. — 
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Example 2: Figure 116 shows how a record identifying 
indicator is used to condition an operation. When a 


record is read that has a T in column 1, the 01 indicator 


turns on, If this indicator is on, the field named SAVE is 


added to SUM. When a record having no T in column 1 is 


read, the 02 indicator is on. The subtract operation, since 
it is conditioned by 02, is then done instead of the add 


operation, 
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Figure 116. Conditioning Operations (Resulting Indicators) 


Example 3: Figure 117 shows the use of field indicators 
to condition operations. Assume the job is to find weekly 
earnings including overtime. The overtime field is checked 
to see if any overtime has been put in. If the employee has 
worked overtime, the field is positive and indicator 10 
turns on. In all cases the weekly regular wage is calculated. 
However, overtime pay is calculated only if indicator 10 is 
on (lines 02 and 03). 


Example 4: Line 02 of Figure 118 shows the use of a con- 
trol level indicator in columns 9-17. Assume that indicator 
25 represents a record type and that a control level 2 break 
occurred when record type 25 was read. L1 and L2 are 
both on, All operations conditioned by the control level 
indicators in columns 7-8 are performed before operations 
conditioned by control level indicators in columns 9-17, 
Thus, the operation in line 03 occurs before the operation 
in line 02, The operation in line 02 is done on the first 
record of the new control group indicated by 25, whereas 
the operation in line 03 is a total operation done for all 
records of the previous control group. 
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Figure 118. Conditioning Calculations (Control Level Indicators) 


COLUMNS 18-27 (FACTOR 1) AND COLUMNS 33-42 
(FACTOR 2) 


Use columns 18-27 and 33-42 to name the fields or to give 
the actual data (literals) on which an operation is to be 
performed. The entries you can use are: 

1. The name of any field that has been defined. 

2. Any alphameric or numeric literal. 


3. Any subroutine, table array name, or array element. 


4, Any date field names (UDATE, UMONTH, UDAY, 
UYEAR). 


5. The special names, PAGE, PAGE], or PAGE2, 

6. A label fora TAG, BEGSR, or ENDSR operation 
(Factor 1 only). A label for a GOTO or EXSR oper- 
ation (Factor 2 only). 


7, A filename fora CHAIN, DEBUG, DSPLY, READ, 
SETLL, or FORCE operation (Factor 2 only). 


An entry in Factor 1 must begin in column 18; an entry in 
Factor 2 must begin in column 33. 


The entries you use depends upon the operation you are 


describing. Some operations need entries in both sets of 
columns, some need entries in only one, and some need no 
entries at all. See Columns 28-32 in this chapter for more 
information on operation codes. If you are naming a sub- 
routine, see Subroutines in this chapter. 
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The maximum length of an alphameric literal is 
eight characters excluding the two enclosing 


apostrophes. 


3. 


Literals 


A literal is the actual data used in an operation rather than | 
the field name representing that data. A literal may be 


either alphameric or numeric. 


An apostrophe required as part of a literal is repre- 


4, 


sented by two apostrophes. For example, the literal 


‘O” CLOCK’. 


would be written as 


CLOCK’ 


‘0’ 


Consider the following rules when using an alphameric 


literal (Figure 119, insert A): 


Alphameric literals may not be used for arithmetic 


operations, . | 


5. 


Any combination of characters may be used in an 
alphameric literal. Blanks are also valid. 


1. 


Alphameric literals must be enclosed by apostrophes 


Ze 
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Figure 119. Alphameric and Numeric Literals 
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Consider the following rules when using a numeric literal 
(Figure 119, insert B): 


1. Anumeric literal consists of any combination of the 
digits 0-9, A decimal point or sign may also be 
included. 


2. The maximum total length of a literal is 10 char- 
acters including signs and decimal points. 


3, Blanks may not appear in the literal. 


4. The sign, if present, must be the leftmost character. 
An unsigned literal is treated as a positive number. 


5. Numeric literals must not be enclosed by 
apostrophes (’). 


6. Numeric literals are used in the same way as a nu- 
meric field. 


7. Decimal comma or decimal period is controlled by 
the Inverted Print option on the Control Record 
(see Chapter 3, Column 21). 


COLUMNS 28-32 (OPERATION) 


Use columns 28-32 to specify the kind of operation to be 
performed using Factor 1, Factor 2, and/or the Result 
Field and resulting indicators. The operation code must 
begin in column 28. A special set of operation codes have 
been defined which you must use to indicate the type of 
operation desired. Every operation code used requires cer- 
tain entries on the same specification line. See Appendix 
D, Table D-1 for a summary of all possible codes and the 
additional entries required for each code. For further 
information on the operations that can be performed, see 
Operation Codes in this chapter. 


The operations are performed in the order specified on 
the Calculation Sheet. 


All operations conditioned by control level indicators in 
columns 7-8 must follow those that are not conditioned by 
control level indicators. All operations which are part of a 
subroutine (SR in column 7-8) must follow all other calcu- 
lations in a program. 


COLUMNS 43-48 (RESULT FIELD) 


Entry Explanation 
Result Field, table, array, or array element. 
Field 


Use columns 43-48 to name the field, table, array, or array 
element that will hold the result of the operation specified 
in columns 28-32, You may use the name of a field, table, 
array, or array element that has already been defined either 
on extension specifications, input specifications, or else- 
where in the calculation specifications. (See Tables and 
Arrays in Chapter 5 for more information on arrays.) 


Otherwise you may define a new field by entering a field 
name that has not already been used. Any field you define 
here will be created at the time the program is compiled. 
The field you name may be either numeric or alphameric. 
A field used in arithmetic operations (see Columns 28-32 
in this chapter) or numeric compare, or a field edited or 
zero suppressed in output specifications must be numeric. 


The result field name must begin with an alphabetic char- 
acter in column 43 and contain no blanks or special char- 
acters. 


If you are entering the name of a field that has not been 
defined elsewhere, columns 49-52 should also contain 
entries. 


If you are entering the name of a field that has been defined, | 


entries in columns 49-52 are not necessary but if specified 
must agree with the previous definition of that field. - 


COLUMNS 49-51 (FIELD LENGTH) 


Entry Explanation 

Blank Alphameric or numeric field described 
elsewhere. 

1-256 Result Field length. 


Use columns 49-51 to give the result field length for any 
result field. If you are naming a new field (one that has 
not been used before), you must consider the form your 
data will be in and the length it will have after the opera- 
tion has been performed. 
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Whenever the field length is specified for a result field, you 
should be careful to make the result field long enough to 
hold the largest possible result. If the result field is too 
small, significant digits may be lost. For example, you may 
wish to add field A (eight characters long, four decimal 
places) to field B (ten characters long, six decimal posi- 
tions), Fields A and B have four characters to the left of 
the decimal, but the result field, field C, must allow for 
more characters to the left of the decimal. 


9999.0000 Field A 
0001.111111 Field B 
10000.111111 Field C (result field) 


In this case, field C was defined as 11 characters long with 
six decimal positions. Some of the numbers to the right of 
the decimal could be lost without changing the meaning of 
the result greatly. However, if field C were defined as 10 
characters long with six decimal positions, a significant digit 
to the left of the decimal would be lost. Field C in this case 
would be 0000.111111 and the meaning of the result has 
greatly changed. 


Numeric fields have a maximum length of 15 characters. 
Alphameric fields may be up to 256 characters long. You 
may indicate the length of a field that has been previously 
described either in the input specifications or in calculation 
specifications. However, if you-.do so, you must specify 
the same field length and number of decimal positions as 
was previously given to the field. 


If the result field contains the name of a table or array, an 


entry in these columns is optional. If used, it must agree 
with the length described in the extension specifications. 


COLUMN 52 (DECIMAL POSITIONS) 


Entry Explanation 

Blank Alphameric or numeric field described 
elsewhere. 

0-9 Number of decimal! places in a numeric 


result field. 


Use column 52 to indicate the number of positions to the 
right of the decimal in a numeric result field. If the 
numeric result field contains no decimal positions, enter 
zero, 


This column must be left blank if the result field is alpha- 
meric. It may also be left blank if the result field is 
numeric but has been previously described in the extension, 
input, or calculation specifications. In this case, Field 
Length (columns 49-51) must also be blank. 
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The number of decimal positions must never be greater 
than the length of the field. The number may, however, 
be larger or smaller than the number of decimal positions 
that actually result from an operation. If the number of 
decimal positions specified is greater than the number of 
decimal places that actually result from an operation, zeros 
are filled in to the right. If the number specified is smaller 
than the number that results from the operation, the right- 
most digits are dropped. 


Figure 120 shows how the contents of a result field after a 
multiplication operation may change according to the Deci- 
mal Positions (column 52) and Field Length (columns 
49-51) specifications. 

COLUMN 53 (HALF ADJUST) 


Explanation 


Entry 
Blank Do not half adjust. 
H Half adjust. 


Use column 53 to indicate that the contents of the result 
field are to be half adjusted (rounded). In essence, half 
adjusting is done by adding a 5 (-5 if the field is negative) 
to the number at the right of the last decimal position 
specified for this field. All decimal positions to the right 
of the position specified for that field are then dropped 


(see Example). 


The half adjust entry is allowed only with arithmetic oper- 
ations (see Columns 28-32 in this chapter). This entry 
cannot be specified for an MVR operation, or for a DIV 
operation followed by an MVR operation. 


Example 


Figure 121 shows a result field being half adjusted to two 
decimal positions (2 in column 52 and H in column 53). 
The result field is half adjusted as follows: 


35.7968 Result of an add operation. - 


5 Add 5 to the number at the right of the 
last decimal! position specified. 


35.8018 Drop all decimal positions to the right at 
the position specified. 
35.80 Result after half adjusting 


Multiplication: 98.76 x 1.234 = 121.86984 * 
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Yiijp4)3 Not permitted * A field length of 8 with 5 decimal positions gives all significant 


digits without adding zeros to either the left or right. 


Permitted but inaccurate 


Figure 120. Result Field Contents Based on Various Field Length and Decimal Position Specifications 
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Figure 121. Specifying Half Adjust 
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COLUMNS 54-59 (RESULTING INDICATORS) 


Explanation 


Entry 

01-99 Any numeric indicator. 

H1-H9 Any halt indicator. 

LI-L9 Any control level indicator. 

LR — Last record indicator. 

OA-0G, Any overflow indicator (if specified on 
OV File Description Sheet). 


Columns 54-59 are used for four different purposes: 


1. To test the value of the result field after an arith- 
metic operation. 


2. To check the outcome of a CHAIN, LOKUP, COMP, 
TESTB, or TESTZ operation (see Operation Codes 
in this chapter). 


3. To specify which indicators to SETON or SETOF. 


4, To indicate end of file for the READ operation code. 


Test Results 


By entering an indicator in columns 54-59, you specify 
that the result field is to be tested after the operation speci- 
fied in columns 28-32 has been performed. (Normally, 
only indicators 01-99 and H1-H9 are used for testing.) The 
indicator specified is turned on only if the result field satis- 
fies the condition being tested for (see Examples, Examples 
1-3). This indicator may then be used to condition follow- 
ing calculations or output operations (see Examples, 
Example 4). If the same indicator is used to test the result 
of more than one operation, the operation last performed 
determines the setting of the indicator. 


Notice that three fields (columns 54-55, 56-57, and 58-59) 
can be used for this purpose. Each field is used to test for 
different conditions: columns 54-55, plus or high; columns 
56-57, minus or low; columns 58-59, zero or equal. You 
can test for more than one of the conditions. 
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Columns 54-55 (Plus or High): Place an indicator in these 
columns when testing to find: 


1. Ifthe Result Field in an arithmetic operation is 
positive. 


2. If Factor 1 is higher than Factor 2 ina compare 
operation. 


3. If Factor 2 is higher than Factor 1 ina table or array 
lookup operation. 


4. The results of a CHAIN (not found), TESTB (all 
0’s), or TESTZ (C zone) operation. 
Columns 56-57 (Minus or Low): Place an indicator in 


these columns when testing the Result Field to find: 


1. If the Result Field in an arithmetic operation is 
negative. 


If Factor 1 is lower than Factor 2 in a compare 
operation. 


3. If Factor 2 is lower than Factor 1 in a table or 
array lookup operation. 


4, The results of a TESTB (mixed), or TESTZ (D zone) 


operation. 


Columns 58-59 (Zero or Equal): Place an indicator in 
these columns when testing the Result Field to find: 


1. If the Result Field in an arithmetic operation is zero. 


2. If Factor 1 is equal to Factor 2 in a compare opera- 
tion. 


3. — If Factor 2 is equal to Factor 1 in a table or array 
lookup operation. 


4. The results of a READ (end of file), TESTB (all 
ones), or TESTZ (not C or D zone) operation. 


Note: \f the LR indicator is used as a resulting indicator, 
NLR (‘not LR’’) in columns 9-17 should be used as a 
conditional indicator to avoid setting off the LR indicator. 


Setting Indicators 


You may enter the indicators that you want to turn on or 
off by the operations SETON or SETOF. Sce Operation 
Codes, Setting Indicators in this chapter for more informa- 
tion on these operations. Any indicators to be turned on 
or off by the SETON or SETOF operations are specified 
from left to right in the three resulting indicators fields 
(Figure 122). Column headings in columns 54-59 have no 
meaning for SETON, or SETOF operations. 


é 
01-99 (Field Indicators, Record Identifying Indicators, 
Resulting Indicators, and Conditioning Indicators) 


You may assign any of the numbers 01-99 to indicate such 
things as: 


1. The type of record read (see Columns 19-20 in 
Chapter 7). 


2. The status (plus, minus, zero/blank) of an input field 
(see Columns 65-70 in Chapter 7). 


3. The results of a calculation operation. See Examples, 
Example 1 and Example 2. 


Any of these indicators which you have assigned may then 
also be used to: 


1. Condition calculation operations (see Columns 9-17 
in this chapter). 


2. Condition output operations (see Columns 23-31 in 
Chapter 9). 


3. Establish field record relations (see Columns 63-64 
in Chapter 7). 


Indicators reflect only one condition at a time. When one 
indicator is used to reflect two or more conditions, it is 
always set to reflect the condition in the last operation per- 
formed. Therefore, it is not usual practice to assign the 
same number as a field indicator and/or resulting indicator 
more than once ina program. When you use such an indi- 
cator to condition other operations, you may get wrong 
results since the indicator may not always reflect the con- 
dition you think it does (see Examples, Example 3). 


If any indicator 01-99 is set on or off by the operation 
codes SETON or SETOF, it remains on or off until an in- 
struction in a specification line containing that same indi- 
cator is performed. The indicator is then set to reflect a 
condition from the operation performed. 
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H1-H9 (Halt Indicators) 
You may use any halt indicator to: 


1. Cause the program to stop after finding an 
unacceptable condition. 


2. Condition calculation or output operations that are 
not to be performed when such an unacceptable 
condition has occurred. This is necessary because all 
calculation and detail output operations are still 
performed for the record that caused the error before 
processing stops. 


3. Establish field record relations (see Columns 63-64 
in Chapter 7). 


Using the same indicator to test for two or more error 
conditions is not usually good practice (see Examples, 
Example 5). 


Any assigned halt indicator is off at the beginning of the 
program. 


- All halt indicators that are turned on during a cycle are dis- 
played at the end of detail output. Each halt must be 
responded to separately. After all halt indicators are dis- 
played, an HO halt is displayed. All halt indicators are 
turned off when option 0 is selected in response to the HO 
halt. 


IBM International Business Machine Corporation 
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Factor 2 


Examples 


Example I: Figure 123, insert A shows that resulting indi- 
cator 10 has been assigned to signal when a minus condition 
occurs. Indicator 10 turns on if the result after the sub- 
traction operation has been performed is negative. It then 
remains on (or off depending upon the result) until the 
same operation is performed again. It is always set to 
reflect the result of the subtraction operation each time it 

is done. 


Example 2: Figure 123, insert B shows the same operation 
as insert A. However, this operation is conditioned by 
indicator 01. The operation is done only when indicator 
01 ison. Resulting indicator 10 is set on only when the 
result of the operation is negative. 


Example 3: Figure 123, insert C shows the use of the 
same indicator (10) in two lines. The status of this indica- 
tor reflects the result of each operation. For instance, 


indicator 10 turns on after the operation in line 05 has been 


done if the result of the operation is negative. However, if 
the result of the operation in line 07 is positive or zero, 
indicator 10 turns off. It is then reset only when the opera- 
tion in line 05 is done again. 


Note: Halt indicators are valid when used with the LR 
indicator. Even though the halt condition may be satisfied, 
the halt indicator is never displayed because the end of job 
occurs before the halt can occur. 
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Figure 123. Indicators 01-99 
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Example 4: Figure 124 shows the entry of two indicators 
that are used to test for the different conditions in a com- 
pare operation. These indicators are used to condition the 
calculations which might be performed for a payroll job. 
Indicator 10 is turned on if the hours worked (HRSWKD) 
are greater than 40 and is then used to condition all opera- 
tions necessary to find overtime pay. Indicator 20 is 
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Figure 124. Conditioning Operations (Resulting Indicators) 





turned on if HRSWKD is less than 40. It is also used to 
condition other operations. In line 03 if 20 is not on (the 
employee worked 40 or more hours), regular pay based on 
a 40 hour week is calculated. In line 06 if 20 is on 
(employee worked less than 40 hours), pay based on less 
than a 40 hour week is calculated. 
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Example 5: Figure 125, insert A shows the use of H1 in 
two different specification lines. If the result of the calcu- 
lation operation in line 01 is negative, H1 turns on. This is 
an error condition. Processing continues, however, until 
this program cycle is completed. Thus, the operation in 
line 03 is done. If the result of this subtraction operation 
is positive, H1 turns off. The program does not stop be- 
cause H1 is not on, even though an error condition has 
been found in line 01. 


The use of two different halt indicators as shown in 
Figure 125, insert B does not allow a situation like the 
one just described to occur. 
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This operation is not conditioned. 
’ It will always be done even when 
the halt indicator is on to signal 


(A) an error condition. 
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If H1 turns on as a result of the operation 
in line 01, this operation is not performed. 


Figure 125. One Halt Indicator Testing for Two Error Conditions 
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COLUMNS 60-74 (COMMENTS) 


Enter in columns 60-74 any meaningful information you 
wish. The comments you use should help you understand 
or remember what you are doing on each specification line. 
Comments are not instructions to the RPG II program. 
They serve only as a means of documenting your program. 


COLUMNS 75-80 (PROGRAM IDENTIFICATION) 


See Chapter 2. 
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Operation Codes 


You are able to perform many different types of opera- 
tions on your data using the RPG II language. Special 
codes have been set up which indicate the operation to be 
performed. Usually these are just abbreviations of the name 
of the operation. You must use these codes to specify the 
operation to be performed. 


Operations may be divided into nine categories; all codes 
in each category are explained in this section. Examples 
are also given for many codes. Appendix D, Table D-1 pro- 
vides a summary of the operation codes. It also shows 
what other specifications need to be used with each code. 


ARITHMETIC OPERATIONS 


Arithmetic operations can be performed only on numeric 
fields or literals, The result field must also be numeric. For 
arithmetic operations in which all three fields are used: 


1. Factor 1, Factor 2, and the Result Field may all be 
different fields. 


2. Factor 1, Factor 2, and the Result Field may all be 
the same field. 


3. Factor 1 and Factor 2 may be the same field but 
different from the Result Field. 


4, Either Factor 1 or Factor 2 may be the same as the 
Result Field. 


The length of any field involved in an arithmetic operation 
cannot exceed 15 characters. If the result exceeds 15 char- 
acters, characters may be dropped from either or both ends 
depending on the location of the decimal point. The 
results of all operations are signed (+,-). Any data placed 


in the result field replaces the data that was there previously. 


Add (ADD) 


Factor 2 is added to Factor 1. The sum is placed in the 
Result Field. Factor 1 and Factor 2 are not changed by 
the operation. 


Zero and Add (Z-ADD) 


Factor 2 is added to a field of zeros, and the sum is placed 
in the Result Field. 


Subtract (SUB) 


Factor 2 is subtracted from Factor 1. The difference is 
placed in the Result Field. Factor 1 and Factor 2 are not 
changed by the operation. 


Note: Subtracting two fields which are the same is a 
method of setting the result field to zero. 


Zero and Subtract (Z-SUB) 


Factor 2 is subtracted from a field of zeros. The difference 
is placed in the Result Field. This actually places the nega- 
tive of Factor 2 in the Result Field. This operation can be 

used to change the sign of a field. Factor 1 is not used. 


Multiply (MULT) 


Factor 1 is multiplied by Factor 2. The product is then 
placed in the Result Field. Factor 1 and Factor 2 are not 
changed. When you use (as a factor) a field which is 
described as the Result Field, you must be sure the Result 
Field is large enough to hold the product. 


Divide (DIV) 


Factor 1 (dividend) is divided by Factor 2 (divisor). The 
result (quotient) is placed in the Result Field. Factor 1 


- and Factor 2 are not changed. 


If Factor 1 is 0, the result of the divide operation will be 

0. Factor 2 cannot be 0. If it is, the job stops immediately 
and a halt code is displayed (see RPG IJ Halt Procedures 

in Appendix A). You may continue processing, 

by resetting the halt. When processing is continued, the 
result and remainder are set to zero. 
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Any remainder resulting from the divide operation is lost 
unless the move remainder operation is specified as the next 
operation. If move remainder is the next operation, the 
result of the divide operation cannot be half adjusted 
(rounded). 


Move Remainder (MVR) 


This operation moves the remainder from the previous 
divide operation to a separate field named under Result 
Field. Factor 1 and Factor 2 must not be used. This oper- 
ation must immediately follow the divide operation and 
should be conditioned by the same indicators. Half adjust 
cannot be specified with this operation. Thé maximum 
length of the remainder is 15, including decimal positions. 
The number of significant decimal positions is the greater 
of: 


1. The number of decimal positions in Factor 1 of the 
previous divide operation. 


2. The sum of the decimal positions in Factor 2 and the 
Result Field of the previous divide operation. 


The maximum whole number positions in the remainder is 
equal to the whole number positions in Factor 2 of the 
previous divide operation. : 


Figure 126 shows the use of the move remainder operation. 
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Figure 126. Move Remainder Operation 
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Square Root (SORT) 


This operation derives the square root of the field named in 
Factor 2. The square root of Factor 2 is placed in the 
Result Field. Factor 1 is not used. 


Factor 2 and the Result Field can be numeric fields up to 
fifteen digits long overall, including up to nine decimal 
places. Figure 127 is a table which can be used to deter- 
mine Result Field contents for various field lengths and 
decimal positions. 


For every digit left of the decimal place in the Result Field, 


~ there should be two digits left of the decimal place in 


Factor 2; for every digit right of the decimal place in the 
Result Field, there should be two digits right of the decimal 
place in Factor2, 


A whole array can be used in a SQRT operation if Factor 2 
and Result Field contain array names. In this case, the 
square root of each element of the array named in Factor 
2 will be placed in the corresponding element of the array 
named in the Result Field. 


When using the SQRT operation, remember: 
1. The Result Field (root) is automatically half-adjusted. 


2. The Result Field length must be greater than or equal 
to the decimal positions entry. 


3. Factor 2 cannot be a negative number. A negative 
number causes a halt (see RPG II Halt Procedures 
in Appendix A). 


4, Resulting indicators are not allowed. 
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Numbers in the 
table represent 
the square root 
of 4071.87. 


Notes: 1. Shaded areas are decimal positions. - 

2. To find the Result Field contents for any 
field length and decimal positions, read 
all digits on the desired decimal positions 
line which are below and to the right of 
the desired field length. For example: © 


Field length = 8; decimal positions = 4 


Result Field contents = 0063.8112 


Figure 127. Result Field Contents for Various Field Lengths and Decimal Positions 


Crossfoot (XFOOT) 


This operation is used only on arrays with numeric elements. | 


It adds all the elements of the array together and puts the 
sum into a separate field specified as the Result Field. 
Factor 1 is not used. Factor 2 contains the name of the 
array. You can half-adjust the total in the Result Field and 
use resulting indicators if you wish. 


If the Result Field is an element of the same array used in 
Factor 2; the value of that element prior to the XFOOT 
operation is used in arriving at a total. 


MOVE OPERATIONS 


Move operations move part or all of Factor 2 to the Result 
Field. Factor 2 remains unchanged. 


Factor 1 is not used in any move operations, It must 
always be blank. No resulting indicators may be used. 
Numeric fields may be changed to alphameric fields and 
alphameric fields may be changed to numeric fields by the 
move operations. To change a numeric field to an alpha- 


- meric field, place the name of the numeric field in Factor 


2 and use an alphameric result field. To change an alpha- 
meric field to a numeric field, place the name of the alpha- 
meric field in Factor 2 and use a numeric result field. 


When move operations are specified to move data into 
numeric fields, decimal positions are ignored. For example, 
if the data 1.00 is moved into a numeric field with one deci- 
mal position, the result is 10.0. 
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Move (MOVE) 


This operation causes characters from Factor 2 to be 
moved to the rightmost positions in the result field. Mov- 
ing starts with the rightmost character. 


If Factor 2 is longer than the Result Field, the excess left- 
most characters of Factor 2 are not moved. If the Result 
Field is longer than Factor 2, the characters to the left of 
the data just moved in are unchanged. 
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An alphameric field or constant may be changed into a 
numeric field by moving it into a numeric field. When this 
is specified, the digit portion of each character is converted 
to its corresponding numeric character and then moved to 
the result field. Blanks are transferred as zeros. However, 
the zone portion of the rightmost alphameric character is 
converted to a corresponding sign and is moved to the 
rightmost position of the numeric field where it becomes 
the sign of the field. A numeric field may also be changed 
into an alphameric field by moving it into an alphameric 
field. All digits are transferred. The digit and zone of the 
rightmost character are transferred.. The MOVE operation 
is summarized in Figure 128. 


When moving data into an indexed array, only one element 
in the array has data moved into’it. This is true even if the 
field being moved is larger than the array element. 


Result Field Larger than Factor 2 


Factor 2 Result Field 
Before MOVE Operation 
; + Numeric or Alphameric 
Alphameric 1,2,3(4,5,6 ,7,8 4; (4 = letter D) 


-S 


a 
After MOVE Operation 112,354,718 ,4 42 , 5, Numeric Result Field 
(5 = letter N) 


Alphameric Result Field 


Result Field Smaller than Factor 2 


Factor 2 Result Field 
Before MOVE Operation 


Numeric or Alphameric 
1AsC 1E,(G,;P, H,4)S,Ny Alphameric (4 = letter D) 
Se 


After MOVE Operation : j Numeric Result Field 


(5 = letter N) 
ASCE, G, PY Hi4i:S,Ny 


Alphameric Result Field 


Result Field and Factor 2 Same Length 


Factor 2 Result Field 
Before MOVE Operation 


umeric or Alphameric 


uPy}H,4,S)Ny  Alphameric (4 = letter D) 
a ee 7 


After MOVE Operation Numeric Result Field 


(5 = letter N) 
Py Hi4iSiN, 


Alphameric Result Field 





Result Field and Factor 2 Same Length 


Factor 2 Result Field 


Before MOVE Operation 


(218141215) Numeric tAtLyT)51F) Alphameric 
After MOVE Operation (718141215, Numeric Result Field 
(5 = letter N) 
= : ee OO 
1718 54,2553 1718454;:2,;N, Alphameric Result Field 


Figure 128. MOVE Operations 
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Move Left (MOVEL) 


This operation causes characters from Factor 2 to be 
moved to the leftmost position in the Result Field. Moving 
begins with the leftmost character. 


If Factor 2 is longer than the Result Field, the excess right- 
most characters of Factor 2 are not moved. If the Result 
Field is longer than Factor 2, the characters to the right of 
the data just: moved in are unchanged. In this case the sign 
of a numeric field is not changed either. 


An alphameric field or constant may be changed into a 
numeric field by moving it into a numeric field. When this 
is specified, the digit portion of each character is converted 
to its corresponding numeric character and then moved into 
the result field. 


Blanks are transferred as zeros. If the rightmost character 
is moved, the zone is also converted and used as the sign of 
the field. When the rightmost character is not transferred, 
the zone is, nevertheless, still transferred and used as the 
sign of the result field. 


A numeric field may also be changed into an alphameric 
field by moving it into an alphameric field. All digits are 
transferred. Both digit and zone portions of the rightmost 
character are transferred if that character is to be moved. | 
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A summary of rules for MOVEL transfers are as follows 
(see also Figure 129): 


1. Factor 2 is the same length as the Result Field. 


a. Factor 2 and Result Field numeric: the sign is 
moved with the rightmost digit. 

b. Factor 2 numeric, Result Field alphameric: the 
sign is moved with the rightmost digit. Only 
digits are moved for other positions. 

c. Factor 2 alphameric, Result Field numeric: zone 
and digit portions of rightmost digit are moved. 
Zones in other positions are not moved. 

d. Factor 2 and Result Field alphameric: all char- 
acters are moved. 


2. Factor 2 is longer than the Result Field. 


a. Factor 2 and Result Field numeric: the sign from 
the rightmost position of factor 2 is moved over 
the rightmost digit of the result field. 

b. Factor 2 numeric, Result Field alphameric: the 
Result Field contains only digits. 

c. Factor 2 alphameric, Result Field numeric: zone 
from the rightmost character of Factor 2 is moved 
over the rightmost digit of the Result Field; other 
Result Field positions contain only digits. 

d. Factor 2 and Result Field alphameric: only the 
number of characters needed to fill the Result 
Field are moved. 


3. Factor 2 is shorter than the Result Field. 


a. Factor 2 either numeric or alphameric, Result 
Field numeric: digit portion of Factor 2 replaces 
the contents of the leftmost positions in the 
Result Field. The sign in the rightmost position 
of the Result Field is not changed. 

b. Factor 2 either numeric or alphameric, Result 
Field alphameric: characters in Factor 2 replace 
the equivalent number of leftmost positions in 
the Result Field. No change is made in the zone 
of the rightmost position of the Result Field. 


a. Numeric 


Factor 2 


= mmm mmm mmm eee 


d. Alphameric 


a. Numeric 


Factor 2 


10; 0,010,048 34 42 4,5 


0,;0,0,0,0 58 14 )2,5 


Oe ee ee ee 


1B, RWC {XH 45S WN, 


1B, RiW jC 1X 1H 14 SiNy 


d. Alphameric 


Numeric 


By R~WyC YX 1H 4 SN, 


B,RiW,C,X,H 4 | S,N 


Factor 2 


171814 (245) 


After MOVEL Operation 


Factor 2 and Result Field Same Length Result Field 
+ 
Before MOVEL Operation (5647.8) 4) 
Numeric 
After MOVEL Operation 7 ' 8 , 4,2 5, 
Before MOVEL AK, T,4,D, 
Alphameric 
After MOVEL ; 17 18,4,2,N, 
Before MOVEL 5,6,71;844, 
a2 Numeric 
After MOVEL 7 8,4,2,5, 
Before MOVEL A,K,T 4,0, 
Alphameric 
After MOVEL iP Hy 4 SiN, 
Factor 2 Longer Than Result Field Result Field 
+ 
Before MOVEL Operation i5:61;7;,81 4) 
> Numeric 
After MOVEL Operation 0.0,0,0,0, 
Before MOVEL AA,K,T, 4,0, 
Alphameric 
After MOVEL 91013 ,1457, 
+ 
Before MOVEL 15 ,6,7,8.4, 
_ Numeric 
After MOVEL i2.,9 ;6 13.7) 
Before MOVEL A, KiT 14 1D, 
Alphameric 
After MOVEL B ,R W,C [X 
Factor 2 Shorter Than Result Field Result Field 
+ 
Before MOVEL Operation 11.3 ,0,9 453 12 21,0, | 
+ Numeric 


17.8 14 ;2,;5,3 4,2 ;1,0, 


Before MOVEL 


After MOVEL 


i113 0,9, 4,3,2 41,0; 


_ Numeric 
1347 4,315;, 5,3 4251 0, 


Before MOVEL 


After MOVEL 


Bi R,W,C,X,H,4,8,A, 
Alphameric 


1718 14,2,;NjH,4,S,Ay 


Alphameric 


C,P;T,5)N 


Figure 129. MOVEL Operations 


Before MOVEL 


After MOVEL 


1ByRyW, Cy XH, 44 SA, 
Alphameric 


C,P,Ti;5 jNH,4jS5A 
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Move Array (MOVEA) 


This operation moves the data starting from the leftmost 
position of Factor 2 to the leftmost position of the Result 
Field. The shorter field (Factor 2 or the Result Field) 
determines the length of the move. If Factor 2 is longer 
than the Result Field, the excess rightmost characters of 
Factor 2 will not be moved. If the Result Field is longer 

. than Factor 2, the characters to the right of the data moved 
into the Result Field will remain unchanged. All arrays 
and fields referenced by a MOVEA instruction must be 
alphameric. 


The MOVEA operation makes it possible to move: 


@ Several contiguous array elements to a single field. 


e A single field to several contiguous array elements. 


@ Contiguous elements of one array to contiguous 
elements of another array. 


The movement of data starts with the first element of an 
array or field. If the array is indexed, the move starts with 
the element referenced. The movement of data is termi- 
nated when the last array element has been moved or filled, 
or when the number of characters moved equals the length 
of the shorter field specified in Factor 2 or the Result Field. 
This may cause the move to terminate in the middle of an 
array element. 


Note: Both Factor 2 and the Result Field cannot reference 
the same array. 


| The MOVEA is summarized in Figure 130. 
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Example: Array to array move. 
No indexing; different length 

Punching 
arrays, same element length. instruction 









Operation 








3 2728 29 30 31 


IMOVIE 


ARRX 


_ Before 
11,213, 4[5, 6|7, 8]9, o| MOVEA 


Sa 
Done Element 
_—_— 


After 
11,213, 4]5, 617, 8{9, 0] MOVEA 





Peo [LL 


“Factor 2 


35 36 37 38 39 40 41 42/43 44 45 46 47 48/49 50 


NNRAX 11111 Wee || 








ARRY 


la,AlB,8ic,clo, ple, ele, &| 
Soe 
Done element 


— 


l1 2{3,4/5,617,8]9,0lF,F| 








Figure 130 (Part 1 of 3). MOVEA Operation 
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room [TT TT. ae 


Example: Array to array move. 
Index result field. 










Result Field 







Operation Factor 2 


Leng 


68 27428 29 30 31 32/33 34 35 36 37 38 39 40 41 42143 44 45 46 47 481/49 50 


| MOVIEINNRe TT TTT lalla, (tT) 





ARRX | ARRY 
; Bef 
[1 2|3 a|s 6|7 alo Ol <aoues lA als plc c|p ple | 


One El t One Element 
a ne Elemen 2 ao 
ter 
[1 2|3 als 6|7 s|9 o| MOVEA [A al B B|1 2{3 45 | 


ee 
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Pomme Ti 


Example: Array to array move. 
No indexing, different length 
array elements. 














Operation Factor 2 





+ 27928 29 30 31 32]33 34 35 36 37 38 39 40 41 42 46 47 


IMOVIE TTT TT isle C11 


ARRY ARRZ 


Before 
[1 2|3 4[5 67 3[9 o| movea (AA Alp B BlccclD DD 


a One Element | > One Element 
After 
[1 2|3 als 6|7 a| 9 o| MOVEA [1 2 3|4 5 6|7 8 g|o D p 





ee a ee 
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Example: Array to array move. 
Index factor 2, different length 
array elements. 








Result Field 











Factor 2 





Operation 
Leng 





37 38 39 40 


[TIMOVERATRRN, MTT | aigie [TT 
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[2 2|3 4]5-6|7 8/9 | ovea {AA Als B Bic c cD D OF 
: Se 
> One Efement =_— One Element 
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WOON er ia 
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Figure 130 (Part 2 of 3). MOVEA Operation 


Calculation Specifications 195 


Example: Field to array move. 
_No indexing on array. © 
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Punching 
Instruction 


Operation Factor 2 





FIELDA ARRY 


Before 
[1234567  MOVEA lo 8 6|5 4 32 1 ola BC| 
—_—_——o—” 


> One Element 


Aft 
l1234567| ‘oven {t2.3[4.5 6|7 1 ofA B Cl 
nn A ; 


cree 


Example: Array to field move. RPG CALCULATION SPECIFICATIONS 
Variable indexing. : 










Punching 
Instruction 


Operation Factor 2 





ARRX FIELD 


Before 
[o, 1[0 Alo 2|0,8/0,3]0,c| woven. (0,1[0,A 
—— 
SS One Element 


~= ; 
After 
[o,1]0, Ajo, 20 Blo 3|0,c| MOVEA [0 2 |0 B| 


ee ee” 9S ee 


Figure 130 (Part 3 of 3). MOVEA Operation 
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MOVE ZONE OPERATIONS 


These operations are used only to move the zone portion 
of a character. There are four varieties of the move zone 
operation (Figure 131). 


Using a minus (-) sign in a move zone operation will not 
yield a negative character in the result field, since minus 
is represented by a X‘60’ internally and a D zone is 
required for a negative character. Characters J-R have D 
zone representations and can be used to obtain a negative 
value (J = X‘D1’,... ,R = X‘D9’). 


Note: Generally, whenever the word high is used, the field 
involved must be alphameric; whenever low is used, the 
field involved may be either alphameric or numeric. 








Alphameric Factor 2 


| 
MHHZO | MLLZO 


Alphameric Result Field 


Numeric Factor 2 
MLHZO MLLZO 


Alphameric | | | l l | l U | Result Field 


Factor 2 


Alphameric 
MLLZO 
MHLZO 
Numeric | | | | | | | | | | Resutt Field 


Li dada bia by | rector 2 


MLLZO 


Lita ta Liar § reste rier 


Numeric 


Numeric 


Figure 131. Function of Move Zone Operations 


Move High to High Zone (MHHZO) 


This operation moves the zone from the leftmost position 
of Factor 2 to the leftmost position of the Result Field. 
Factor 2 and the Result Field must be alphameric. 


Move High to Low Zone (MHLZO) 


This operation moves the zone from the leftmost position 
of Factor 2 to the zone of the rightmost position of the 
Result Field. Factor 2 can be only alphameric. The Result 
Field may be either alphameric or numeric. 


Move Low to Low Zone (MLLZO) 


This operation moves the zone from the rightmost position 
of Factor 2 to the zone of the rightmost position of the 
Result Field. Factor 2 and the Result Field may be either 
alphameric or numeric. 


Move Low to High Zone (MLHZO) 


This operation moves the zone from the rightmost position 
of Factor 2 to the leftmost position of the Result Field. 
Factor 2 can be numeric or alphameric, but the Result Field 
can only be alphameric. 


COMPARE AND TESTING OPERATIONS 


These operations test fields for certain conditions. The 
result of the test is shown by the resulting indicators 
assigned in columns 54-59, No fields are changed by these 
operations. 


~ Compare (COMP) 


This operation causes Factor 1 to be compared with Factor 
2. Asa result of the compare, indicators are turned on as 
follows: 


High — Factor 1 is greater than Factor 2. 
Low Factor 1 is less than Factor 2. 
Equal Factor 1 equals Factor 2. 


Factor 1 and Factor 2 must either be both alphameric or | 
both numeric. 
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Equa! Length 


pared. If the fields are alphameric, they are aligned to their Alphameric Fields 


leftmost character. If one is shorter, the unused positions . C,C,C,C,C,c 


The fields are automatically aligned before they are com- C1 C1C Cj Ci, 
Ci iC CC Cy 
are filled with blanks (Figure 132). 


Unequal Length 


C,C,C,C,C,C 
Alphameric Fields 


C,C,Cy,bybyb 


If the fields which are to be compared are numeric, they Se 

are aligned according to the decimal point. Any missing ‘Short 

digits are filled in with zeros (Figure 133). The maximum a 

field length for numeric fields which are to be compared is Figure 132. Comparison of Alphameric Fields 
15 digits. 


If an alternate collating sequence is defined, alphameric 
fields are compared according to that sequence. Entire 


arrays cannot be used with the compare operation. none Equal Length 
: Numeric Fields 
Figure 134 shows some specifications for compare opera- 12,1,0,5,7,6) 
tions. In specification line 01, the contents of the field _ Short 
SLS67 (1967 sales) are compared with the contents of Field 


SLS68, If 1967 sales exceed 1968 sales, resulting indicator 
21 turns on; if they are less, resulting indicator 26 turns on; 
if the two years had equal sales, 30 turns on. In line 03 the : 
alphameric constant OCTOBER is compared against the con- 21514,3,2,0)) 
tents of the field named MONTH (which must also be 

defined as alphameric). If the MONTH field does not con- 
tain the word OCTOBER, indicator 13 turns on; if it does, 
indicator 15 turns on after the compare operation. In line 
05 the contents of the field named GRSPAY (which must 
be defined as numeric) is decimal-aligned with numeric 


a 
(0,0; 1,745) 6 
l Unequal Length 


Numeric Fields 


Figure 133. Comparison of Numeric Fields 
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constant 1250.00 and then compared to it. If the value in 
field GRSPAY is greater than or equal to 1250.00, indicator 
04 turns on; if its value is less than 1250.00, indicator 05 
turns on. In line 07 the contents of the field NETPAY 
(which must be defined as numeric) is decimal-aligned with 
numeric constant 0 and then compared to it. If NETPAY 
is greater than zero, indicator H1] remains off after the com- 
pare operation. If NETPAY is zero or negative, indicator 
H1 turns on. 


Test Zone (TESTZ) 


This operation tests the zone of the leftmost character in 
the result field (see Character Structure under Columns 
21-41 in Chapter 7). The Result Field must be alphameric 
since this operation can be done only on alphameric char- 
acters. Resulting indicators are used to determine the 
results of the test. The zone portion of characters & and 

- A-I causes the plus indicator to turn on. The zone portion 
of the characters } (bracket), - (minus), and J-R causes 
the minus indicator to turn on. All other characters, when 
tested, cause the blank indicator to turn on. Factor 1 and 
Factor 2 are not used in this operation. 


BIT OPERATIONS 
Three operation codes, BITON, BITOF, and TESTB, are 
provided to set and test individual bits. The individual bits 


can be used as switches in a program. 


_ All data fields are initialized by the system at the beginning 
of a job: 


@ Alphameric fields are initialized to hexadecimal ‘40’.. 


© Numeric fields are initialized to hexadecimal ‘FO’. 


If a program uses alphameric fields for bit operations and 
requires the fields to be initialized to binary zero (hexadeci- 
mal ‘00’), then the program must initialize those fields. 


In binary field operations, the operation code, BITON, 
BITOF, or TESTB, must appear in columns 28-32, Factor 
2 can contain: 


© Bit numbers 0-7: One or more bits (maximum of eight) 
may be set on, set off, or tested per operation. The bits 
are numbered from left to right and are enclosed in 
apostrophes. The order of specification of the bits is 
not restricted. For example, to specify the first bit in a 
field, enter ‘0’ in Factor 2 (in columns 33-35). To speci- 
fy bits 0, 2, and 5, enter ‘025’ in Factor 2 (in columns 
33-37). Bits not specified in Factor 2 are not changed. 


@ Field Name: The name of a one-position, alphameric 
field or table or array element can be entered. In this 
case, the bits which are on in the field or array element 
are set on, set off, or tested in the Result Field; bits 
which are not on are not affected. | 


Any field named in Factor 2 or the Result Field must 


be a one-position, alphameric field (no entries in the deci- 
ma! positions columns on the Input or Calculation Sheet). . 
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Set Bit On (BITON) 


This operation code causes bits identified in Factor 2 to 
turn on (set to one) in a field named as the Result Field. 
The operation code BITON must appear in columns 28-32. 
Conditioning indicators can be used in columns 7-17. Any 
entry under Field Length must be J. See the preceding 
discussion in Bit Operations. 


Factor 1, Decimal Positions, Half-Adjust, and Resulting 
Indicators are not used with the BITON operation. See 
Figure 135 for a summary of BITON operations. 
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The following operation sets bits 0, 3, 5, and 7 on in the field named BITS. Assume that the 
_one-position field has been previously defined. 


PET TTT TTT TET TT prion isis | tT feast ET TET EET TT 
HIER PEC PES EEE 


: The following operation uses a one-position alphameric field as a source of bits. Any bits that are on 
"in the field named ALPHA will cause corresponding bits to be set on in the field named BITS. If 

. bits 5and 7 are on in the field named ALPHA, the BITON operation will set bits 5 and 7 on in the 
| field named BITS. 
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The following operations use a one-position alphameric array element as either a source of bits or 
as a result field, or both. !n the first operation, any bits that are on in the array element, ARR,NX 
will cause corresponding bits to be set on in the array element ARE,LZ. 
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Figure 135. Set Bit On (BITON) Operations 
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Set Bit Off (BITOF) 


This operation code causes bits identified in Factor 2 to 
turn off (set to zero) in a field named as the Result Field. 


The operation code BITOF must appear in columns 28-32. 
All other specifications are the same as those for the 
BITON operation. See Figure 136 for a summary of 
BITOF operations. 
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Factor 1 Operation Factor 2 : | Plus [Minus] Zero | Comments 


La compare 
: paced sad 2 
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The following operation sets bits 1, 2, 4, and 6 off in the field named BI TSW. ole that the PLT 


One-position field has been previously defined. * HEHE 
He CoC ae sims PCC 


The following operation uses a one-position ainamere field as a source of bits. Any bits that 
are on in the field named ALPHA will cause corresponding bits to be set off in the field named 
BITSW. \f bits 5 and 7 are on in the field named ALPHA, the BITOF operation will set bits 5 
and 7 off in the field named BITSW. 
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: The following operations use a one-position alphameric array element as either a source of bits 
9 





or as a result field, or both. In the first operation, any bits that are on in the field named ALPHA 
will cause corresponding bits to be set off in the array element, ARR,NX. 
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Figure 136. Set Bit Off (BITOF) Operations 
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Test Bit (TESTB) ® Columns 54-55: An indicator in these columns is 
turned on if each bit specified in Factor 2 is off (0) 


This operation code causes bits identified in Factor 2 to in the Result Field. 
be tested for an on or off condition in the field named 

_as the Result Field. The condition of the bits is known © Columns 56-57: An indicator in these columns is 
by resulting indicators in columns 54-59, All other speci- turned on if two or more bits were tested and found 
fications are the same as those for BITON and BITOF. to be of mixed status; that is, some bits on and other 
See Figure 137 for a summary of TESTB operations. bits off. It is the programmer’s responsibility to ensure 

that the field named in Factor 2 contains more than 

At least one resulting indicator must be used with the one bit which is on if an indicator appears in columns 
TESTB operation; as many as three can be named for one 56-57. 

‘Operation. Two indicators may be the same for one 
TESTB operation, but not three. Ifa field specified in © Columns 58-59: An indicator in these columns is 
.Factor 2 contains bits which are all off (binary 0), no re- turned on if each bit specified in Factor 2 is on (1) in 
sulting indicators are turned on. A resulting indicator has the Result Field. 


the following meanings for these columns: 
. Note: If the field in Factor 2 has no bits on, then this 
indicator will be turned on. 


Printed in U.S.A, 
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The following TESTB operation will compare bits O and 7 with corresponding bits i in the field 
named BITS. 
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lf bits O and 7 are off in the field named BITS, indicator 20 will turn on. 


If bits O and 7 are of mixed status (one on, one off) in the field named BITS, indicator 21 
will turn on. 
If bits O and 7 are on in the field named BITS, indicator 22 will turn on. 
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The following operation will compare the bits that are on in the field named ALPHA with 
corresponding bits in the field named BITS. 


@® If the bits that are on in the field named ALPHA are off in the field named BITS, ingicater, 20 . 
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Figure 137 (Part 1 of 2). Test Bit (TESTB) Operations 


SETTING INDICATORS 4, If the halt indicators (H1-H9) are set on and not 
turned off before the detail output operations are 


These operation codes are used to turn indicators off or complete, the system stops. Processing may be 
on, Any indicator to be turned on or off is specified in continued by pressing the start key on the 
columns 54-59. The headings in the Resulting Indicators Processing Unit once for every halt indicator that 
field (Plus or High, Minus or Low, Zero or Equal) have is on. 
no meaning in these operations, When setting indicators, 
remember: 
5. Setting on or setting off a control level indicator 
1. The following indicators may not be turned on by (L1-L9) does not automatically set on the lower 
the SETON operation: 1P, MR, LO, U1-U8. control level indicators. 
2. The following indicators may not be turned off by 6. Indicators L1-L9 and the record identifying indica- 
the SETOF operation: 1P, MR, LR, LO, U1-U8. tors are always turned off after detail output oper- 
ations are completed, regardless of the previous 
3. If the LR indicator is turned on by a SETON oper- _ SETON or SETOF operation. 
ation which is conditioned with a control level indi- 
cator (columns 7-8 of the Calculation Sheet), 7. Whenever a new record is read, record identifying 
processing stops after all total output operations are indicators (01-99) and field indicators are set to 
finished. If it is turned on by a SETON operation reflect conditions on the new record. The setting 
not so conditioned, processing stops after the next from any previous SETON or SETOF operation 
total output operation is completed. does not apply then. 
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The following operations use a One-position array element as either a source of bits or as a result 
field, or both. In the first operation, the bits that are on in the field named ALPHA are compared 
to corresponding bits in the array element, ens NX, For example, assume that bits 1 and 4 are 
on in the field named ALPHA: 
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: If bits 1 and 4 are off in array element ARR,NX, indicator 20 will turn on. 
If bits 1 and 4 are of mixed status (one on, one off) in array element ARR,NX, indicator 21 
ge turns on. 

; If bits 1 and 4 are on in array element ARR,NX, indicator 22 will turn on. 
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Figure 137 (Part 2 of 2). Test Bit (TESTB) Operations 
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Set On (SETON) 


This operation causes any indicators in columns 54-59 
to be turned on. 


Set Off (SETOF) 


This operation causes any indicators in columns 54-59 
to be turned off. 


BRANCHING OPERATIONS 


Operations are normally performed in the order that they 
appear on the Calculation Sheet. There may be times, 
however, when you do not want the operations performed 
in the order they are specified. For example, you may 
wish to: 


1. Skip several operations when certain conditions 
occur, 


2. Perform certain operations for several, but not all, 
record types. 


3. Perform several operations over and over again. 


Go To (GOTO) 


This operation allows you to skip instructions by specify- 
ing some other instruction to go to (see TAG). You may 
branch to an earlier line or to a later specification line. 
However, you cannot skip from a calculation that is not. 
conditioned by a control level indicator (columns 7-8) to 
one that is, or vice versa. Neither can you branch from a 
calculation within a subroutine to a calculation outside of 
that subroutine, or vice versa. 


Factor 2 must contain the name of the point to which you 
wish to go (maximum of six characters). Factor 1 and the 
Result Field are not used in this operation. The GOTO 
operation may be conditioned by any indicators. If it is not 
conditioned, the operation is always done. See Examples 
for use of GOTO operations. 
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Tag (TAG) 


This operation code names the point to which you are 


‘branching in the GOTO operation. Factor 1 contains this 


label (maximum of six characters). The name must begin 
in column 18. The same label may not be used for more 
than one TAG instruction. 


Factor 2 and the Result Field are not used. No indica- 
tors may be entered in columns 9-17 for a TAG instruc- 
tion. Control level indicators may be used, however, if 
branching is to occur at total time. See Examples for use 
of the TAG operation. . 


Examples 


Example I: Figure 138 shows how TAG and GOTO 
may be used to skip operations on certain conditions. 


1. If the results of the subtraction in line 01 is minus 
(indicator 10 is on), a branch is taken to RTNI 
(routine 1) named by the TAG operation code in 
line 09. Notice that both the GOTO (line 02) and 
TAG (line 09) are not conditioned by control level 
indicators, 


2. If the branch is not taken in line 02, the multiplica- 
tion in line 03 is performed. Then the branch to 
RTNI (line 09) must be taken because this branch 
is not conditioned by indicators. 


3. Operations in lines 10-12 are then done. If the 
operation in line 12 does not turn indicator 15 on, 
a branch is taken backwards to RTN2 (line 05). 


4. Operations then go in the order specified again 
from lines 06-12. Nothing is done in line 09 since 
TAG only gives a name. These same operations are 
performed again and again until 15 does turn on. 


5. | When 15 is on, the branch to RTN2 is not taken. 
The TESTZ operation is then performed. If this 
operation causes 20 to turn on, a branch is taken 
to line 17 (GOTO END). If 20 is not on, the 
operation on line 16 is done. 
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Example 2: Figure 139 shows how TAG and GOTO 
may be used to eliminate coding when several operations 
have to be performed again and again. 


Assume that you wish to make 20 mailing labels for every 
customer you have. The customer’s name and address 

are found on an input card. Since you wish to write 20 
labels for each card, you have to use exception lines and 
the operation EXCPT (see EXCPT Operation in this sec- 
tion for further information). 


This can be coded as shown in Figure 139, insert A. You 
have to write the EXCPT operation code for every mail- 
ing label. However, by using branching, you can code it 
all in six lines (see Figure 139, insert B). An EXCPT line 

is printed out. One is added to COUNT in order to keep 
track of how many times the line has been printed. Then 
COUNT is compared to 20. If COUNT does not equal 
20, a branch is taken back to the beginning (GOTO 
DOAGIN). If COUNT equals 20, the branch is not taken. 
‘Instead 20 is subtracted from the COUNT field so that it 
will be zero for the next cycle. 


LOOKUP OPERATIONS 

Lookup operations are used when searching through a 
table or an array to find a special element. 

Lookup (LOKUP) 

This operation code causes a search to be made for a 
particular item in a table or array. The table or array is 
Factor 2. Factor 1 is the search word (data for which 
you wish to find a match in the table or array named). 
Factor 1, the search word, may be: 

1. An alphameric or numeric constant. 

2. A field name. 

3. An array element. 

4. A table name. 

Remember that when a table is named in Factor 1, it 


refers to the element of the table last selected in a 
LOKUP operation, not to the whole table. 
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Resulting indicators are always used in connection with 
LOKUP. They are used to first indicate the type of search 
desired and then to reflect the result of the search. A 
resulting indicator assigned to Equal! (columns 58-59) in- 
structs the program to search for an entry in the table or 
array equal to the search word. The indicator turns on 
only if such an entry is found. If there are several entries 
identical to the search word, the first one that is encoun- 
tered is selected. 


An indicator assigned to Low (columns 56-57) instructs 
the program to locate an entry in the table that is nearest 
to, yet lower in sequence than, the search word. The 
first such entry found causes the indicator assigned to 
Low to turn on. . 


The indicator assigned to High (columns 54-55) instructs 
the program to find the entry that is nearest to, yet 
higher in sequence than, the search word. The first higher 
entry found causes the indicator assigned to High to turn 
on. In all cases the resulting indicator turns on only if 
the search is successful. 


A table or array that is not full is called a short table 

or array. When the program is searching a short table or 
array, all entries in the table (including blanks and zeros) 
are compared to the search word. 


At least one resulting indicator must be assigned, but no 
more than two can be used. Resulting indicators can be 
assigned to Equal and High or Equal and Low. The pro- 
gram searches for an entry that satisfies either condition 
with Equal given precedence; that is, if no Equal entry 
can be found, the nearest lower or nearest higher entry is 
selected. If resulting indicators are assigned both to High 
and Low, the indicator assigned to Low is ignored. When 
using the LOKUP operation, remember: 


1. The search word and each table or array item must 
have the same length and the same format (alpha- 
meric or numeric), but need not have the same align- _ 
ment. 


2. You may search on High, Low, High and Equal, or 
Low and Equal only if your table or array is in 
sequence, or the portion of an array being searched 
is.in sequence. 


3. No resulting indicator turns on if the entry searched 
for is not found. 
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Using the LOKUP Operation 
LOKUP with One Table 


When searching a single table, Factor 1, Factor 2, and at 
least one resulting indicator must be specified. Condition- 
ing indicators (specified in columns 7-17) may also be 
used. 


Whenever a table item is found that satisfies the type of 
search being made (Equal, High, Low), a copy of that 
table item is placed in a special storage area, Every time 

a search is successful, the newly found table item is placed 
in this area, destroying what was there before. If the 
search is not successful, no table item is placed in the 
storage area, Instead, the area keeps the contents it had 
before the unsuccessful search. 


Resulting indicators are always set to reflect the result of 
the search. If the indicator is on, showing a successful 
search, you know that a copy of the item searched for is 
in the special storage area. 


LOKUP with Two Tables 


When two related tables are used in a search, only one is 
actually searched. When the search condition (High, Low, 
Equal) is satisfied, the corresponding data items from both 
tables are made available for use. 
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Factor 2 


Factor 1 must be the search word and Factor 2 must. 
name the table to be searched. The Result Field must 
name the related table from which data is made available 
for use. Resulting indicators must also be used. Condi- 
tioning indicators (specified in columns 7-17) may be 
specified if needed. 


The two tables involved should be the same length, If 
the table that is searched is longer than its related table, 
the search stops at the end of the shorter table. 


Referencing the Table Item Found in a LOKUP Operation 


Whenever a table name is used in an operation other than 
LOKUP, the table name really refers to the data placed in 
the special storage area by the last successful search. 
Thus, by specifying the table name in this fashion, you 
can use data items from a table in calculation operations. 


If the table is used as Factor 1 in a LOKUP operation, . 
the contents of the special storage area are used as the 
search word. In this way a data item from a table can 
itself become a search word. 


The table may also be used as the Result Field in opera- 


tions other than the LOKUP operation, In this case the 
contents of the special storage area are changed by the 
calculation operation. The corresponding table item in 
the table itself is also changed. This is a way in which 
you can modify the contents of the table by calculation 
operations (Figure 140). 
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Example of Table Lookup 


Figures 141 and 142 show the use of the LOK UP opera- 
tion. Figure 141, insert A shows the contents of four 
tables: TABLEA, TABLEB, TABLEC, and TABLED 
(loaded at compile time). Each table has five entries. 


Figure 141, insert B shows the extension specifications 

for these tables. TABLEA and TABLEB are described 
separately and are, therefore, entered separately. 
TABLEC and TABLED are related tables and are entered 
in alternating format on the table input cards. Figure 
142 shows the order in which the table input cards are 
loaded into the machine at compile time. 


LOKUP with an Array 


The LOKUP specifications for arrays are the same as for 
tables except that if Factor 2 is an array, the Result 
Field cannot be used. In addition if the desired item is 
found, the indicators reflect only that the desired item is 
in the array; the programmer does not have ready access 
to this item. 


If you use just the array name in referencing the array, 
the search begins at the first element in the array. You 
must use indicators to determine if a match was found. 


If you use the array name and an index (which may be 

a field name or a literal), the search begins at the element 
identified by the index. If a match is found, the number 
of the array element containing the match is placed in 
the field used as an index. If no match is found, the 
index field is set to 1. 


If a literal was used as an index, indicators must be used 
to determine if a match was found. The content of the 
element referenced by the literal is not changed. 
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Source deck 


.. Figure 142. Order in which Tables are Loaded (Compile Time) 


Figure 143 shows two LOKUP operations performed 

with an array.. MANNOS, a 2100 element array of em- 
ployee numbers, is read in at pre-execution time from 
file ARRFILE with 10 six-position elements per record; 
the array elements are in ascending order. Line 01 of the 
Calculation sheet shows a LOKUP of array MANNOS 
with the object of finding the element nearest to but 


_- higher in sequence than the search word ‘100336’. If this 


. desired element is found in the array, indicator 20 turns 
‘on and the GOTO in line 02 is performed. Notice that 

the result of this LOKUP indicates only whether or not 
the desired element exists in the array. Line 05 of the 

Calculation Sheet shows essentially the same LOKUP 
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051302124715 


’ TABLEA 


TABLEC and TABLED 


———» TABLEB 


operation—indicator 20 will turn on when the first ele- 
ment higher in sequence than ‘100336’ is found. Note, 
however, that in this LOKUP operation, the array 
MANNOS is indexed by the field INX. This index field 
was set to 1 in line 04 so the LOKUP will begin at the 
first element of MANNOS. If the desired element is 
found, the number of this element (not its contents) is 
placed in the field INX. In this way, the actual element 
which satisfied the LOKUP can be used in subsequent 
calculation operations, as in line 07. If no element was | 
found to satisfy the LOKUP, the field INX would be reset 
to 1. 
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Figure 143, LOKUP With an Array 
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Starting the Search at a Particular Array Item 


It is possible, in order to save processing time, to start 

the LOKUP search at a particular item in the array. This 
type of search is indicated by additional entries in columns 
33-42, Enter the name of the array to be searched in 
these columns followed by a comma and a numeric literal 
or the name of a numeric field (with no decimal posi- 
tions). The numeric literal or numeric field tells the num- 
ber of the item at which you wish to start the search 
(Figure 144). This numeric literal or field is known as 

the index because it points to a certain item in the array. 
All other columns are used as previously described for the 
normal lookup operation. 


The search starts at the specified item and continues 
until the desired item is found or until the end of the 
array is reached. When an index field is used, an unsuc- 
cessful search causes the index field to contain the value 
of one. If, however, an item is found which satisfies the 
conditions of the LOKUP operation, the number of that 
array item (counting from the first item) is placed in the 
index field. A numeric literal used as an index is not 
changed to reflect the result of the search. 


Note: If a literal or field index for an array is zero, or 
greater than the number of elements in the array, the 
following will result: 


1. For a literal index a severe error occurs, and ¢ com- 
pilation will cease. 


2. Fora field index the job will halt, allowing the 
operator to cancel or restart the program. If the 
program is restarted, the field index is given a value 
of one (see Appendix A, RPG II Halt Procedures). 


SUBROUTINE OPERATIONS 


These operation codes are only used for subroutines. See 
Subroutines for information on subroutines. All sub- 
routine operation codes must be written in specification 
lines following all detail and total calculations. Subrou- 
tine lines are always identified by an SR in columns 7-8. 


Begin Subroutine (BEGSR) 


This operation code serves as the beginning point of the 
subroutine. Factor 1 must contain the name of the 
subroutine. 


End Subroutine (ENDSR) 


This operation code must be the last statement of the 
subroutine. It serves to define the end of the subroutine. 
Factor 1 may contain a name. This name then serves as 
a point to which you can branch by a GOTO statement 
within the subroutine. The ENDSR operation ends the 
subroutine and automatically causes a branch back to the 
next statement after the EXSR operation. 


Execute Subroutine (EXSR) 


This operation causes all the operations in the subroutine 
to be performed. EXSR may appear anywhere in the pro- 
gram. Whenever it appears, the subroutine is executed. 
After all operations in the subroutine are done, the oper- 
ation in the line following the EXSR operation is per- 
formed. 
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This operation may be conditioned by any indicators, 
meaning the subroutine is executed only when all condi- 
tions are satisfied. Factor 2 must contain the name of 
the subroutine that is to be executed. This same name 
must appear on a BEGSR instruction. 


SUBROUTINES 


A subroutine is a routine that is part of another main 
routine. A routine is something done over and over 
again. A program can be called a routine because the 
instructions in a program are done again and again (the 
program cycle). A subroutine is a group of instructions 
in that main routine (program) which may be done 
several times in one program cycle. 


Sometimes it is necessary to write a program which at 
several points does the same operations. Instead of 
having to write these instructions every time they are 
needed, it is easier and less time consuming if they can 
be written just once and then referred to each time they 
are needed. You can do this by writing a subroutine 
which then consists of all those operations you have to 
do at several points in your program. 


You might also have to do the same sequence of opera- 
tions in several different programs. Instead of writing 
these specifications in each program, you can code the 
operations once as a subroutine. You then include this 
subroutine in as many different programs as you wish. 


Coding Subroutines 


Subroutines are coded and used on the Calculation Sheet. 
They are entered after all other calculation operations. 
Every subroutine must have a name, but no two sub- 
routines used in the same program may have the same . 
name. 


Enter the name of the subroutine in Factor 1, and on the 
same line enter the operation code BEGSR (line 10 of 
Figure 145). The subroutine name can be 1-6 characters 
long and must begin in column 18 with an alphabetic 
character. The remaining characters can be any combina- 
tion of alphabetic or numeric characters (no special char- 
acters). Blanks may not appear between characters in the 
name. 
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Each specification line within the subroutine (except AN 
or OR lines) must have SR in columns 7-8 to identify it 
as a subroutine line (Figure 145). The last statement of 
the subroutine is indicated by the operation code ENDSR 
(line 17 of Figure 145). Factor 1 of the ENDSR state- 
ment may contain a name. This name indicates the point 
to which a GOTO within the subroutine can branch 
(Figure 146). 


The subroutine, even though specified last on the Calcula- 
tion Sheet, may be performed at any point in the calcula- 
tion operations. Whenever the subroutine is to be used, 


enter the operation code EXSR (execute subroutirie). 
The name of the subroutine to be used must also be 
entered in Factor 2 (lines 04 and 08 of Figure 147). 
Using the EXSR operation is known as calling a subrou- 
tine. 


The operation code EXSR causes the operations in the 
subroutine named in Factor 2 to be performed. After all 
calculation operations in the subroutine are done, the 
ext operation after the EXSR is performed. For exam- 
ple, when the EXSR operation (line 04 of Figure 147) is 
encountered, all subroutine operations (lines 11-15) are 
done. Then the operation in line 05 is performed. 
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Figure 146, Subroutines (ENDSR) 
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This means that individual operations within the sub- 


Indicators may be used with EXSR code to condition 


routine cannot be conditioned by a control level indicator 
used in columns 7-8. However, entire subroutines can be 


conditioned by control level indicators. 


when the subroutine should be executed. Any valid indi- 


cator may be used in columns 7-17. If no indicators are 


used, the subroutine is always executed. 


This can be done 


by using the control level indicator with the EXSR oper- 


ation (line 08 of Figure 147). 


All possible RPG II operations may be performed within 


a subroutine. 


Operations within the subroutine may be 


Fields used in the subroutine may be defined either 


17 
inside or outside the subroutine. 


conditioned by any valid indicator in columns 9- 


In either case, they 


(Figure 147). Since SR must appear in columns 7-8, con- 


trol level indicators cannot be used in these columns. 


can be used by both the main routine and the subroutine. 
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You may use as many subroutines in your main program 
as you wish. However, you cannot write a subroutine 
within a subroutine. This means that within one sub- 
routine you cannot have the BEGSR and ENDSR opera- 
tion codes. One subroutine may call another subroutine, 
however. In other words, within a subroutine you may 
have an EXSR operation (Figure 148). A subroutine 
cannot call itself and cannot call the subroutine which 
called it. 


Subroutines need not be defined in the order in which 
they are used. However, you must make certain that 
each one has a different name and a BEGSR and ENDSR 
operation code. 


When you use a GOTO statement in a subroutine, you 
may Only branch to another statement in that same sub- 
routine. Branching (GOTO) to a statement in another 
subroutine or outside of a subroutine causes an error con- 
dition. You cannot use a GOTO from outside the sub- 
routine to a statement within the subroutine either. 
Figure 149 shows the correct use of GOTO and TAG 
within a subroutine. 


Use of One Subroutine in Many Different Programs 


When you wish to do the same operations in many differ- 
ent programs, you may use a subroutine to eliminate 
duplicate coding in each program. Merely code these 
operations once and use this subroutine along with your 
main program deck. 


Whenever you code a subroutine to be used in several 
different. programs, remember: 


1. | When you call the subroutine in your main program 
(EXSR operation code), you must use the correct 
name of the subroutine in Factor 2. 


2. All fields that will be used both by the subroutine 
and the main routine must be named the same in 
each routine. For example, if both the main 
routine and the subroutine used data from the field 
called COST on the input card, that field must be 
named COST in both routines. Keep in mind that 
the COST field also has the same characteristics 
(length, decimal positions) in both the main routine 
and the subroutine. 
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Figure 149. GOTO and TAG Within a Subroutine 


program cycle can be altered to allow input and output 


PROGRAMMED CONTROL OF INPUT AND OUTPUT 


The following operations 


operations during calculations. 


provide this capability: 


The normal RPG II processing cycle is as follows: 


e@ Exception (EXCPT) 


A record is read. 


1, 


@ Force (FORCE) 


Calculations are performed. 


2 


© Display (DSPLY) 


Records are written. 


3. 


@ Read (READ) 


(See General RPG II Object Program Logic in Chapter 1 


for a brief description of the program cycle.) The normal 


© Chain (CHAIN) 


© Set lower limit (SETLL) 
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Calculation Specifications 


Exception (EXCPT) 


This operation allows records to be written at the time 
calculations are being done. Use this primarily when you 
wish to have a variable number of similar or identical 
records (either detail or total) written in one program 
cycle. (Remember that normally, only the exact number 
of records specified in the output specifications are written 
or punched on a file in one program cycle.) For example, 
you might use EXCPT to produce a variable number of 
identical mailing labels, to write out contents of a table, 
or to produce a number of records having the same infor- 
mation punched in them. 


When the EXCPT operation is used, EXCPT is entered in 
columns 28-32, and columns 7-17 may have entries. All 
other columns must be blank. The line or lines which are 
to be written out during calculation time are indicated by 
~ an #£ in column 15 of the Output Sheet. Exception lines 
may not be used in a combined file. 


Figure 150 shows the use of the EXCPT operation to pro- 
duce a variable number of records having the same infor- 
mation punched in them. Records in the input file have 
two fields, NAME and COUNT. The NAME field is to be 
entered into a certain number of records. That number is 
indicated in the COUNT field. 


Every time the operation code EXCPT is performed, the 
exception record indicated by the F in column 15 of the 
Output Sheet is punched. The field CONSEC is used to 
keep track of the number of records punched. Each time 
an exception record is written, 1 is added to CONSEC. 
CONSEC is then compared with COUNT, the field that 


tells how many records should be punched. If they are not 
equal (indicator 20 is not on), a branch is taken back to 


DOAGIN. Another record is punched out. One is added to 


CONSEC and CONSEC is compared to COUNT. If these 
fields are now equal, another input record is read. If not, 
the same operations are done again. Whenever CONSEC 
equals COUNT, enough records have been punched. 
CONSEC is then subtracted from itself, making it zero. 
This last operation is necessary so that an accurate count 
can be kept for the next record. 


Force (FORCE) 


FORCE statements enable you to select the file from 
which the next record is to be taken for processing. They 


apply to primary or secondary; input, update, or combined 


files. 


Factor 2 ina FORCE statement identifies the file from 
which the next record is to be selected. If the statement is 


executed, the record is selected at the start of the next pro- 
gram cycle. If more than one FORCE statement is executed 


during the same program cycle, all but the last is ignored. 
FORCE should not be specified at total time. 


FORCE statements override the multifile processing 
method by which the program normally selects records. 


However, the first record to be processed is always selected 


by the normal method. The remaining records can be 
selected by FORCE statements. When end of file is 
encountered on a forced file, a record will not be retrieved 


from the file; normal record selection will determine which 


record is to be processed. 


; 
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Calculat 


Example Condition Indicators Set On _ File Selected 
Figure 151 shows part of a job which uses FORCE opera- 
tion codes and look ahead fields to simulate normal record Records 1,2,and 21 and 23 Primary 
selection, Normal record selection is not used because 3 match (CUST (FIRST) 
records in the two secondary files have two match fields, field values). 
CUST and ITEM, and those in the primary file have only 
one, CUST. Normal record selection requires all three to Record 2 has 26 First 
have the same number of match fields. lower CUST field secondary 
value than record 1. (SECOND) 
Indicators 20-23 and 26-28 are used to determine which Record 2 has 
file the next record is to be read from. The conditions lower CUST and 
under which the files are chosen follow. Record 1 means ITEM fields 
the record from the primary file; record 2 the first second- (together) value 
ary file; and record 3, the second secondary file. than record 3. 
Condition Indicators Set On File Selected ; 
Record 2 matches 27 First 
None of the 20 and 22 Primary record 3 (both secondary 
records match. (FIRST) CUST and ITEM (SECOND) 
Reeord-1 has the fields). Record 1 
lowest CUST has greater CUST 
field value. neld-value. 
Record 1 matches 21 and 22 Primary Record 3 has ; aa meCOUGr: 
sscord 0. Record (FIRST) lower CUST field secondary 
3 has a higher value than record (THIRD) 
CUST field value. pe ecole Nias 
lower CUST and 
Record 1 matches 20 and 23 Primary ITEM field 
record 3. Record (FIRST) (together) value 
2 has a higher than record 2: 
CUST field value. | 


File Description Specification 


File Type Mode of Processing 


File Designation Length of Key Field or Extent Exit 
of Record Address Field : 


File Addition/Unordered 


Number of Tracks 
End of Fite = i : for Cylinder Overflow 
Record Address Type . jame o 
Symbolic 7 
Filename Type of File Y Label Exit 
File Format Organization 
or Additional Area 
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Calculation Specifications 


Figure 151 (Part 2 of 2). FORCE Operation Code 


In addition, indicators 24, 25, and 29 are set to condition 
calculations which process the record selected. 

Condition Indicator Set On 
Records 1, 2, and 3 24 
match (CUST fields). 
Records 2 and 3 match 


(CUST and ITEM 
fields). 


Records 1, 2, and 3 25 
match (CUST fields). 

ITEM fields in records 

2 and 3 do not match. 


CUST field values in 29 
records 2 and 3 match; 

ITEM fields do not. 

Record 1 has higher 

CUST field value. 


_ All the calculations shown in Figure 151, insert C are 
needed to determine which record is to be processed next. 
The operations which are performed upon the data from 
the input records are not shown. They do, however, 
precede the calculations shown in Figure 151, insert C and 
are conditioned by the indicators set during the previous 
cycle by the calculations shown. 


Display (DSPLY) 


The display operation allows either or both of the 
following: 


Models 10 and 12: 


1. A field, table element, array element, or literal up to 
125 characters long is printed on the printer-keyboard 
during program execution without a program halt. 


2. A field, table element, literal, or array element up to 
125 characters long is printed on the printer-keyboard 
and the program halts, allowing that field to be 
changed. 


Model 15: 
1. A field, table element, array element, or literal up to 


35 characters long is displayed on the CRT during 
program execution without a program halt. 


2. A field, table element, literal, or array elerient up to 
35 characters long is displayed on the CRT, and the 
program halts, allowing that field to be changed. 
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See Figure 152 for coding possibilities and results. Also see 
Figure 154 under CHAIN operation in this chapter for an 
example using the DSPLY operation. A literal may not be 
changed with DSPLY. ) 


There are several points to remember if you wish to enter 
data during program execution: 


1. Numeric data need not be entered with leading 
zeros; numeric data is right-justified after all char- 
acters are keyed. 


2 To key a negative field, the field is keyed followed 
by a minus sign. The length of the field does not 
need to accommodate the minus sign. 


3.  Alphameric fields are left-justified after all char- _ 
acters are keyed. 


4. Alphameric fields are blanked out and numeric fields 
are zeroed out. j 


5.  Ifno characters are entered or the space bar is not 
pressed, the result field will not be changed. 


6. (Models 10 and 12 only) The data entered must be 
followed by pressing END if the data is correct, or 
CANCEL if you want to re-enter data. 


(Model 15 only) In order to enter data, the operator 
presses the PF12 key on the 3277 keyboard. This 
positions the cursor to the first byte of the response 
line. The operator then enters the desired data via 
the 3277 keyboard and presses ENTER to continue. 


If the data as displayed is correct, and no correcting’ 
entry is required, it is only necessary to press the 
PF12 key followed by ENTER to continue. If you 
enter data on the response line and then determine 
that no entry was required, your recovery is as — 
follows: 


a. If the result field is numeric, enter any non- 
numeric character and press ENTER. 

b. If the result field is alphameric, fill the response 
line with any character or combination of char- 
acters and press ENTER. 


This causes a halt, which should be responded to 
with option 0. The original display will reappear and 
you may proceed by pressing the PF12 key followed 
by ENTER. 
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4. Data can be entered in FIELDB. 


Contents of FIELDA (Factor 1) 
Contents of FIELDB (Result Field) 


DSPLY 


FIELDA and FIELDB are printed as shown. 
4. FIELDB is blanked out if data is entered or the space bar 


2. FIELDA does not change. 


3. Program halts. 


1. 


is pressed. 
5. Data can be entered in FIELDB. 


Notes: 


@ Factor 1 cannot be the name of a whole array. 
@ Fields A and B can be up to 125 characters 


long on the Models 10 and 12 or up to 35 


characters long on the Model 15. 


Figure 152. Methods of Coding the Display Operation 
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Calculation Specifications 


Read (READ) 


The READ operation is used to call for immediate input 
from a demand file during the calculations in the program 
cycle. This operation differs from the FORCE operation 
because FORCE specifies input on the next program cycle, 
not the present one. The READ operation is similar to the 
CHAIN operation, except that the READ file is processed 
sequentially and the CHAIN file is processed randomly. 


The operation code READ must appear in columns 28-32. 
Factor 2 contains the name of the file from which a record 
will be read immediately. An indicator should be used in 
columns 58-59. An indicator specified in these columns 
will turn on after each READ operation if an end of file 
condition is reached. If columns 58-59 are blank, a halt 
will occur on an end-of-file condition and on subsequent 


READ operations after the end-of-file condition is reached. 


The indicator used in columns 58-59 is not reset by subse- 
quent READ operations. Indicators may be specified in 
columns 7-17. 


Note: When a program is doing multiple reads from one 
or several demand files during the same RPG II cycle, the . 
record identifying indicators assigned to the file(s) remain 
on throughout the cycle if the previous READ operations 
were executed successfully. 


The following files can appear as Factor 2 ina READ 


operation (all must be designated demand files with a D 
in column 16 of the File Description Sheet): 
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Sequential or direct disk files processed consecutively 
and specified as input or update files. 


Indexed disk files processed sequentially by key and 
specified as input or update files. 


Indexed disk files processed sequentially within limits 
and specified as input or update files. 


Console files specified as input (Models 10 and 12 only). 
Tape files specified as input. 

MFCU files specified as input or combined files. 

1442 files specified as input or combined files. 


MFCM files specified as input or combined files 
(Model 15 only). 


2501 files specified as input files (Model 15 only). 


CRT77 files specified as input or update files (Model 15 
only). 


DISKET files specified as input files. 


When using the READ operation for demand files remember 
these points: 


1. Demand files can only be processed by the READ 
operation. 


2. Control levels, matching fields, and look-ahead fields 
are not allowed with demand files. 


3. | Numeric sequence testing on the Input Sheet is not 
allowed for demand files. 


4. The MR indicator may not be entered in columns 
63-64 (Field Record Relation) on the Input Sheet. 


5. | Whena demand file is conditioned by a U1-U8 indi- 
cator which is not on, no records will be read from 
that file and the end-of-file indicator (in columns 
58-59 of the Calculation Sheet) will not turn on. 


6. Ifthe end ofa file on a diskette is not reached when 
the program ends, the diskette will be positioned to 
the second record after the last record read. For 
more information, see the JBM System/3 3741 
Reference Manual, GC21-5113. 


RPG CONTROL CARD AND FILE DESCRIPTION SPECIFICATIONS 


Powe DP Py 


IBM International Business Machine Corporation 


Program Punching 


Perum tee ein rene | 


Example: Assigning Employee Numbers to New Employees 


Figure 153 shows the coding necessary to process a demand 
file with the READ operation code. The combined input 
and output file NEWNAME, consisting of a deck of cards 
with a name field in columns 8-96, is read from the primary 
MFCU hopper. The disk file NUMBRFLE, specified as an 
update demand file, consists of records containing a seven- 
digit number and a flag mark. For each record read from 
NEWNAME, a record is also read from NUMBRFLE during 
the calculation phase by means of the READ operation 
code. If the record from the demand file contains a flag 
(field indicator 88 is off), another record is immediately 
read. This loop is repeated until a record without a flag 
has been read from NUMBRFLE; a flag of *X’ is then 
moved into the FLAG field. When end of file has been 
reached on the demand file and each time READ is en- 
countered thereafter, resulting indicator H1 is turned on. 
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Figure 153 (Part 1 of 2). READ Operation Code 





Refer to the specific System Reference Library manual for actual entries. 
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At detail output time, the flagged number from the record 
in NUMBRFLE is punched and printed on the card from 
NEWNAME. The record from NUMBRFLE, which now 
contains a flag, is returned to its original location on the 
disk. The disk file, NAMEFILE, is then written containing 
the name from the NEWNAME card file and the number 
from the demand file, NUMBRFLE. 


Chain (CHAIN) 


The chain operation causes a record to be read from a disk 
file during calculations. This operation allows one record 
to be read in when the operation code CHAIN appears in 
columns 28-32 of the Calculation Sheet. 


The chain operation is used for two purposes: 


1. Random processing of an indexed, sequential, or 
direct file. 


2. Loading a direct file. 


Note: When chaining to one or more files during the same 
RPG II cycle, record identifying indicators assigned to the 
chained file(s) remain on throughout the cycle if any of the 
previous CHAIN operations were executed successfully. 
When chaining to the same file more than once during an 
RPG II cycle, only the last record processed will be updat- 
ed during output time unless an exception output is associ- 
ated with each chain operation. | 


Note: If the same physical file is processed as UPDATE 
and INPUT, successive chains to the same record may yield 
the old data after update, because the contents of the input 
buffers are used instead of rereading the disk. 


Indicators in columns 7-17 may be used, but Result Field, 
Field Length, Decimal Position, and Half-Adjust (columns 
43-53) must be blank. File conditioning indicators (U1-U8) 
can be used to condition a chained file. 


Columns 54-55 should contain an entry. If the record is not 
found, the indicator specified in these columns will turn 

on. No update is permitted to a chained update file when 
the specified record is not found. However, addition to a 
file is allowed when the specified record is not found. 
Columns 56-59 must always be blank for chain operations. 


If an indicator is not specified in columns 54-55, and the 
record is not found, the program will halt. The options 
given are to end the job or to bypass the remainder of the 
current cycle and begin a new cycle. If LR processing has 
already been initiated, the bypass-and-begin-new-cycle 
option is not allowed. If the controlled cancel option is 
taken, files are closed, but the rest of the LR processing 
does not occur. 


When the program is chaining to a file with packed record 
keys, the entry in Factor 1 of the CHAIN operation must 
have a packed length which is the same as the length of the 
key field in the chained file. Packed key fields can be a 
maximum of 8 bytes. The following chart shows the packed 
equivalents for unpacked fields from one to 15 bytes in 
length: 


Unpacked Length 

15, 14 

13, 12 
11,10 

9,8 

7,6 

5,4 

3,2 

1 


Packed Length 


PN Nw bh aoan o 


Random Processing 


In order to read a record from a sequential or direct file, 
the record must be identified by relative record number. 
To read a record from an indexed file, a record key is used 
for identification. The relative record number or key can 
be contained in a field specified for that purpose. 


The chain operation requires the operation code CHAIN in 
columns 28-32 of the Calculation Sheet. Factor 1 entries 
must be a relative record number or key. Relative record 
numbers must be numeric. Factor 2 must contain the 
name of the file from which the record wiil be read. This 
file is called the file that is chained to, or the chained file 
(see Examples, Example 1). 
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Direct. File Load 


To create (load) a direct file, define it as a chained output 
file on the File Description Sheet. In the calculation speci- 
fications, Factor 1 must contain a relative record number, 
columns 28-32 must contain the operation code CHAIN, 
and Factor 2 must contain the name of the direct disk file 
to be loaded. . 


Relative record numbers define the record position for 
each record in the direct disk file. The relative number can 
be all or part of a field in input records or can be generated 
by the RPG II program. Relative record numbers are used 
for record identification of the disk records after the disk 
file is loaded. 


When a direct file is loaded as a chained output file, the 
system clears the disk space required for the direct file 
with blanks before it is loaded. The relative record number 
is used to chain to the corresponding relative record posi- 
tion in the disk file. The information is then written on 
disk, replacing the blanks with data. If a record is not 
loaded, the space reserved for that record in the disk file 
remains blank (until the proper record is loaded later). 


Once the direct file is loaded, records are inserted or 
changed in the file by defining the direct file as an update 
file processed consecutively or by the chain operation (see 
Note). 


228 


You may have to allow for synonyms when you load a 
direct file. Synonyms are two or more records with the 
same relative record number. If you will have synonyms, 
you can load the file in one of two ways, using multiple 
passes: 


1. Define the disk file as a direct file and clear it to 
blanks in your first job (by defining it as a chained 
output file). Once the file has been cleared, one or 
more subsequent jobs can be run using the update 
function to read record locations and check for 
synonyms while loading the file. 


2. Load the direct file with records without synonyms, 
then run another job using the update function to © 
identify synonyms and load them into the file. 


Note: The insertion of records in direct disk files is very 
different from record addition to sequential or indexed 
files. For sequential disk files, the new record is added in 
at the first available position at the end of the file. The 
samé process occurs for an indexed file, except that the 
record key and disk address are added to the file index. 
Any new records inserted in a direct disk file already have . 
a space reserved for them. Hence, the record is inserted in 
its proper place, not merely added to the physical end of 
the file. 


Examples taining the item number of the cards presently being 
worked on. The chain operation uses ITEMNO to find the 


Example 1: Figure 154 shows the coding necessary to master record for that item number, If it is not found, a 
chain to and update an indexed file, MASTINV. The display operation prints out the item number of the cards. 
CARDIN file consists of cards sorted by item number, each Note that indicator 20 turns on when the records are not 
card representing some quantity ordered. Item number is found. 

used as a control field. When all the quantities for one 

item number are added, a control break will occur. At this If the master record is found (20 not on) the total quantity 
point in calculations, the master record for that item num- for the item number is subtracted from the quantity on 
ber must be found and updated. ITEMNO is a field con- hand. After the total calculations, the QOH field in the 


master record is updated. 
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Example 2: Figure 155 shows the loading of a direct disk 
file. NAMEFILE, described as a chained output file on the 
File Description Sheet, is to be loaded with records read 
from CARDS, a card file read from the primary MFCU 
hopper. 


Prior to loading, NAMEFILE is cleared to blanks, As each 
record is read from CARDS, the man number (MANNUM) 


is used as the relative record number to chainto.. _. - 
NAMEFILE during calculations. The entire input record, 
RECORD, is written out on NAMEFILE in the relative 
record location corresponding to MANNUM. When end of 
file (E in column 17 of the File Description Sheet) is 
reached on CARDS, any relative record locations on 
NAMEFILE which have not been loaded with data from 
CARDS will contain blanks. 
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Set Lower Limits Operation (SETLL) 


This operation allows the lower limits, for Index Demand 
files being processed within limits, to be set during cal- 
culations. 


Factor 1 must contain a field name or literal representing 
the value of the lower limit being set. The length of the 
field or literal must be equal to the length of the key for 
the file named in Factor 2. 


Factor 2 must contain the name of the file for which the 
lower limit is to be set. If a read is performed to the file 
prior to the first SETLL instruction the record with the 
lowest key in the file is read. Figure 156 shows a SETLL 
coding example. 


When end-of-file is reached on a file being processed by 
SETLL, another SETLL can be issued and processing of 
the file may continue. The SETLL operation can be used 
whenever a new lower limit is desired. 


Note: When a lower limit is specified by SETLL, the end- 
of-file indicator used on the read operation (READ) to the 
file being processed is not set off. 
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DEBUG OPERATION 


The debug operation is an RPG II function that you may 
use to help you find errors in a program which is not 
working properly. This code causes one or more records 
to be written containing information helpful for finding 
programming errors. 


Debug (DEBUG) 


The DEBUG operation code may be placed at any point or 

at several points in the calculation operations. Whenever it 

is encountered, one or more records are written depending 

upon the specifications entered. One record contains a list 

_ of all indicators which are on at the time the DEBUG code 

was encountered. The other shows the contents of any one 
field. 


Note: The decimal point is not printed. 


Specifica tions 


Factor 1 is optional. It may contain a literal or field name 
which identifies the particular debug operation. The literal 
or the value of the field named here is written on record 1. 
Factor 2 must contain the name of the output file on which 
the records are written. The same output filename must . 
appear in Factor 2 for all DEBUG statements in a program. 
The file used for a DEBUG operation must be an output 
file for the statements to work correctly (printer, punch, 
disk with no add). The result field may be a field, table ele- 
ment, array element, or whole array whose contents you 
want to write on record 2. Any valid indicator may be used 
in columns 7-17. Columns 49-59 must be blank. 


Because of additional processing considerations, care must 
be exercised when writing debug records to a direct or 
indexed file. — 


The operation code produces results only if the proper 
entry (1 in column 15) has been made in the control card 
specifications. If the control card entry has not been made, 
the operation code DEBUG is treated as a comment if its 
output filename is not unique for DEBUG. See Column 

15 in Chapter 3 for more information. mgs 


Records Written for DEBUG 


Record 1 is required. It is written in the following format: 
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Record Positions 


Information 

2-7 DEBUG— 

8 Blank. 

9-16 Constant entered in Factor 1 or 
the statement number of the 
DEBUG operation code in the 
program. 

17 Blank. 

18-31 The words INDICATORS ON— 


The names of all indicators which 
are on, each separated by a blank. | 
The word NONE if no indicators 
are on. More than one record may 
be needed. 


32—any position 
(depending on 
number of 
indicators on) 


See Figure 157 for an example of coding and output for 
record 1. 


Record 2 is optional and is written only when there is a 
result field. The record is written in the following format: 


Record Positions Information 

2-12 The words FIELD VALUE or 
TABLE VALUE or ARRAY 
VALUE. 

13-14 | Blank. 


The contents of the result field 
or table or array (up to 256 
characters per element). More 
than one record may be needed. 


15—any position 
(depending on 
length of field) 


The field is written in record 2 according to the following 
rules: 


1. A blank is used to separate each array element. 


2. When applicable, a negative sign is written following 
an array element, table element, or field. 


3. | When the result field cannot be contained in a record, 
a continuation begins in position two of the follow- 
ing record. 


4, | When one or more elements of an array can be 
written on a single record, but the next element 
cannot be entirely contained on the record, then 
that next element will be written in position two of 
the next record. 


IBM laternational Busines: 


# Machine Corporation 








RPG CALCULATION SPECIFICATIONS 





Form GX21-9C53 
Printed in U.S.A. 






Prom Punching Graphic Card Electro Number Ug frost 75 76 77 78 79 80 
umane Date instruction | punch | | | : Page LU of Identification | 
j ~ Result Field 
= |__ Arithmetic | 
g Factor 1 Operation Factor 2 Comments 
|___Compare | 
: Safrez]i=3 
= 5 
SOMONIGM pee 
8 15 18 19 20 21 22 23 24 25 26 27|28 29 30 31 rere ty 2] 43 44 4g 49 56 57|58 59]60 61 62 63 64 67 68 69 70 71 72 73 
| HEEL LH 7“ anna ik HH. a a rerereerercerereert 
& HHH BERRRRAERE nm is Pht HH | 
Ba - RESREe pa | HE CU ICATE Epc et 
| HH ABR REBEE +H DIE. Hep ian . cit a B HH EEE EH 
HHT th a H Bee Ee Agee SHEe +H EEE 
a ttt | HH RUDRA ERB i HE BaREa BO AEG a RRR e eR REO Re 
a +H : REAR RRARR +H a a it eb Bi apa SE nn nae 
LTT TTT TT left TTT TT bplelahitclelalutr ane | PLETE TTT TT TTT ETT 
SPS Da STs See Ley: at REE | HL GRRE ER RER NERA, 
Output . 
DEBUG- 1 INDICATURS UN- LU OL 05 06 28 
DEBUG- 299 INDICATORS GN- LU Ol 05 07 10 28 9G 


Figure 157. Sample Coding and Output for Record 1 


TIME (Time of Day) OPERATION (Model 15 only) 


This calculation operation code allows you to access the 
system time of day as well as the system date. To use this 
operation code, columns 28-32 must contain the operation 
code TIME and the result field must specify the name of a 
numeric field. To contain the time of day, the field specified 
by the result field must be six-digit numeric (with no deci- 
mals). To contain both the time of day and the date, the 
result field must specify the name of a 12-digit numeric 

field (with no decimals). Whole arrays cannot be specified 

in the result field. 


Columns 49-52 may be used to define the time of day field. 
Factor 1 and Factor 2 are not used and must be blank. 
“Half Adjust” and “Resulting Indicators” (columns 53-59) 
are not used and must also be blank. 


If the field specified in the result field is 6-digit numeric, 
time will be returned in the following format: 


hhmmss 


Where hh is hours, mm is minutes, and ss is seconds. (See 
Figure 158 for an example of the time of day operation.) 


If the field specified in the result field is 12-digit numeric, 
both time and date will be returned in one of the following 
formats, depending on how the.system date was defined 
during system generation: 


hhmmss 
hhmmss 


mmddyy 
ddmmyy 


Where hh is hours, mm is minutes, ss is seconds, dd is day, 
mm is month, and yy is year. 
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Chapter 9. Output Specifications 


COLUMNS 1-2 (PAGE) 


Output specifications describe your output records. These 


See Chapter 2. 


specifications may be divided into two general categories: 


Record description entries (columns 7-31) which 
describe the output file records to be written or 


punched. 


_ COLUMNS 3-5 (LINE) 


See Chapter 2. 


Field description entries (columns 23-74) which 
indicate the position and the format of data on 


the output record. 


2 


COLUMN 6 (FORM TYPE) 


An O must appear in column 6. 


Write the specifications on the Output Sheet (Figure 159). 


The field description entries start one liner lower than 


record description entries. 
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Output Specifications 


COLUMNS 7-14 (FILENAME) 


Use columns 7-14 to identify the file to which records are 
to be written. The filename must begin in column 7. Use 

_ the same filename given in the file description specifications. 
You need to specify the output filename only once. That 
name, however, must be on the first line that identifies the 
file. 


COLUMN 15 (TYPE) 


Entry Explanation 

H Heading records. 

D Detail records. 

T Total records. 

E Exception Records (records to be written 


during calculation time). 


Use column 15 to indicate the type of record that is to be 
written. This record may be.printed, written on disk, or 
punched or printed ona card. Perhaps the clearest method 
of describing output files is to enter the records for each 
file in this order: heading, detail, total, and exception 
(Figure 160, insert A). 


Another method is to enter all headings records for all 
output files, then, all detail records for all output files, etc., 
as shown in Figure 160, insert B. 


Use of heading and detail specifications together with con- 
trol level and overflow indicators specifying when output 
records are to be written is described under Columns 23-31, 
(Output Indicators) iri this chapter. 


Heading records usually contain unchanging identifying 
information such as column headings, as well as page num- 
bers and date. 


Detail records are closely connected with input data. Most 
data in a detail record comes directly from the input record 
or is the result of calculations performed on data from the 

- input record. 


Total records usually contain data that is the end result of 
specific calculations on several detail records. Exception 
output conditioned by level indicators (LO-L9) or total out- 
put should not be specified for primaiy or secondary update 
files, as the results of the update will be unpredictable. 
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Exception records are written or punched during calculation 
time. This is an unusual case and can be indicated only 
when the operation code EXCPT is used. E may not be 
specified for a.combined file. See Operation Codes in 
Chapter 8 for further information on the EXCPT operation. 


COLUMNS 16-18 (ADD A RECORD) 


Entry Explanation 


ADD Add a record. 

Columns 16-18 may be used to specify that a record is to 
be added to an input, output, or update file. The output 
device for these files must be a disk. An A must also be 
coded in column 66 of the File Description Specification 
Sheet for the file to which the record will be added. 


ADD must appear in columns 16-18 of the first line for 
each record identified which is to be added. 
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Figure 160. Order of Output Record Types 


COLUMN 16 (STACKER SELECT/FETCH OVERFLOW) 


Entry Explanation 

Blank Cards automatically fall into predetermined 
stacker (primary hopper — stacker 1, 
secondary hopper — MFCU or MFCM 
(Model A2) stacker 4, MFCM (Model A1) 
stacker 5). 

1-2 Indicates stacker you want to select for 1442. 

1-4 Indicates stacker you want to select for 
MFCU or MFCM (Model A2). 

1-5 Indicates stacker you want to select for 
MFCM (Model Al). 

ry 
F Fetch overflow. 


Column 16 may be used for two different purposes: 


1. Toselect a special stacker into which certain cards 
are to go. 

2. To indicate that the overflow routine can be used 
at this point for a printer file. 


Stacker Select 
Use column 16 to indicate that certain cards are to be 
stacked in a specific stacker. If you make no entry, cards 


go into a predetermined stacker as follows: 


Primary hopper Secondary hopper 


MFCU 1 4 
MFCM (Model! A1) 1 5 
MFCM (Model A2) 1 4 
1442 4p N/A 


Only combined or output card files may be stacker selected 
_in the output specifications: If any output operations are 
to be performed on cards from a combined file that are 

also to be stacker selected, stacker selection should be done 
by the output specifications not by the input specifications. 
Stacker selection in output specifications overrides stacker 
selection in input specifications. 


i 


If stacker selection is done on the basis of matching records, _ 
it should only be done for detail output (D in column 15). _ 
It is only at this time the MR indicator signals the matching - 
status of the card that is ready to be stacker selected. 


OR lines may have different entries in column 16; AND - “a 


lines may not. An OR line containing a blank in column 16 


causes cards to fall into the normal stacker associated with 


the hopper used. The stacker select entry on the puryious th 


ings is not assumed. 


Fetch Overflow 


When the fetch overflow routine is not used, the following 
usually occurs when the overflow line is sensed: 


1. All remaining detail lines in that program cycle are. 
printed (if a printer operation spaced or skipped to 
the overflow area). 


2. All remaining total lines in that program cycle are 
printed. 


3. All lines conditioned by an overflow indicator are 
printed. 


4. Forms advance to a new page if a skip to a new. 
page has been specified. 


If you do not want all of the remaining detail and total | 
lines printed on the page before overflow lines are printed - 
and forms advance to the new page, you may cause over-. 
flow lines to be printed ahead of the usual time. This is — 
known as fetching the overflow routine and is indicated 


_ by the entry in column 16. Overflow is fetched only if 


all the conditions specified by the indicators in columns 
23-31 are met and an overflow has occurred. See 

Columns 33-34 (Overflow Indicators) Chapter 4 for 
detailed information and examples of a fetched overflow - 
routine. 


The fetched overflow routine does not automatically cause 
forms to advance. A skip to line 01 (new page) must also 

be specified on a line conditioned by the overflow ee 7 
in order to advance the forms. 


F must be entered in column 16 of each OR line if you . 
want to fetch the overflow routine foreach recordin the ~~ 
OR relationship. ate 02 es 


COLUMNS 17-22 (SPACE/SKIP) 


Columns 17-22 are used to specify spacing and line skip- 
ping for a printer file. If these columns are blank, single 


spacing occurs automatically after each line is printed. 
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Line spacing and skipping may be specified both before 

and after printing of a line. There may be as many as 

six spaces (three before, three after) between lines of 
printing. Only space before and space after can be specified 
on output for the printer-keyboard. 


You may specify different spacing and skipping on OR 
lines. If no spacing or skipping entries are in the OR line, 
spacing and skipping is done according to the entries in 
the line preceding the OR line. 


If both spacing and skipping are specified on the same line, 
they are done in this order: 


1. Skip before. 

2. Space before. 

3. Skip after. 

4. Space after. 

Note: Because of hardware limitations on the 3284 Printer, 
it is necessary to space after at least one line. If a space 
after of zero is specified or implied (space and/or skip before 
specified with no space or skip after) the compiler will diag- 


nose this and assume a space after of one in addition to any 
space and/or skip before specification. 


_ COLUMNS 17-18 (SPACE) 


Entry Explanation 

0 No spacing. 

1 Single spacing. 
2 Double spacing. 
3 Triple spacing. 


Spacing is used in reference to the lines on one page. You 
may indicate that spacing should be done before (column 
17) or after (column 18) a line is printed. If the destination 
of a space operation is a line beyond the overflow line (but 
not on a new page), the overflow indicator turns on and 
remains on until all overflow lines are printed. 


The console will-always space before printing, due to the 
carriage return mechanism. Therefore, a space before 
entry blank, zero, or one will result in a single space 
before printing (Models 10 and 12 only). 
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Note: The 3284 Printer requires a space after of at least 
one line. If a space after of zero is either specified or im- 
plied (space and/or skip before specified with no space or 
skip after), a space after of one is assumed, in addition to 
any space and/or skip before specified. 


COLUMNS 19-22 (SKIP) 


Entry Explanation 
01-99 Lines 1-99. 
A0-A9 Lines 100-109. 
BO-B2 Lines 110-112. 


Skipping refers to jumping from one printing line to 
another without stopping at lines in between. This is 
usually done when a new page is needed. A skip to a lower 
line number means advance to a new page. Skipping may 
also be used, however, when a great deal of space is needed 
between lines, 


The entry must be the two-digit number which indicates 
the number of the next line to be printed. You may indi- 
cate that skipping should be done before (columns 19-20) 
or after (columns 21-22) a line is printed. If you specify a 
skip to the same line number as the forms are positioned 
on, no movement of the paper occurs. If the destination of 
a skip operation is a line beyond the overflow line (but not 
on a new page), the overflow indicator is turned on and 
remains on until all overflow lines are printed. The destin- 
ation line of a skip operation must not be beyond the form 
length defined on the Line Counter Sheet. 


COLUMNS 23-31 (OUTPUT INDICATORS) 


Entry Explanation 


01-99 Any resulting indicator, field indicator, or 
record identifying indicator previously 
specified. 

L1-L9 Any control level indicators previously 
specified. 


H1-H9 Any halt indicators previously specified. 


U1-U8 Any external indicator set prior to program 
execution. 


OA-OG, Any overflow indicator previously assigned 


OV to this file. (See also overflow indicators, 
columns 33-34 of file description specifica- 
tions.) 

MR Matching record indicator. 

LR Last record indicator. 

IP First page indicator. 

LO Level zero indicator. 


Use output indicators to give the conditions under which 
output operations are to be done. More specifically, use 
them to tell: 


1, | When you want to output a line (see Examples, 


Example 1). 


2. When you want to output a field (see Examples, 
\ Example 2). 
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When you use an indicator to condition an entire line of tion will be done. An NV in the column (23, 26, or 29) pre- 


print, place it on the line which specified the type of ceding each indicator means that the output operation will 
record (Figure 161, insert A). Place an indicator which be done only if the indicator is not on. No output line 
conditions when a field is to be printed on the same line should be conditioned by all negative indicators (at least 
as the field name (Figure 161, insert B). one of the indicators used should be positive). If all nega- 

tive indicators condition a heading or detail operation, the 
There are three separate output indicator fields (columns operation is performed at the beginning of the program 
23-25, 26-28, and 29-31). One indicator may be entered cycle when IP lines are written. The overflow indicators 
in each field. If these indicators are on, the output opera- may not be specified on an £ (exception output) line. 











RPG OUTPUT SPECIFICATIONS anborere inhaa 





IBM International Business Machine Corporation 


1 
= eg ce 
Ca CO OO 


| a | Output Indicators 
And 





1 2 75 76 77 78 79 80 


P. ft Program 
“- Oo" Mdentification 







Zero Balances 


> | Commas to Print 





Field Name 
: Field Edit 
End Z = Zero 
And Positon Suppress 











[ 1} [2 prevuR 






ae a te 
ASS 
3:55 2H4 
la! lr 
mim ne ee 


| | (Sn 




















es E 


ee 


atelefejsleleolofs 
| | WACO Pim 


®& 














RPG 





OUTPUT SPECIFICATIONS Suita) unton 


Printed in 


i Card Electro Number 12 75 76 77 78 79 80 
Punthing ‘ Scuiens 
ec Oe Pe Oa FLL Jo teniiaton 


IBM International Business Machine Corporation 









Program 


Erooremimner fore 












Field Edit 
Z = Zero 
Suppress 







Filename 




















po fafe=fety y= fa 
ee te 








afelelols|olol 
2LoTojofo}olo fo Form type 


- . Figure 161. Output Indicator 


242 


Warning: When defining records of combined or update 
files, avoid writing or punching multiple records on one 
cycle. In Figure 162, for example, if indicators 02 and 03 
are both on, two records qualify for output on the same 
cycle. Results are unpredictable. Writing or punching 

to a combined file or update file can only occur once 

for each cycle. 


In System/3 Disk RPG II, all total lines conditioned by LR 
will be performed last. 


AND and OR Lines 


If you need to use more than three indicators to condition 
an output operation, you may use an AND line. Enter the 
word AND in columns 14-16 and as many indicators as 
needed. The condition for all indicators in an AND 
relationship must be satisfied before the output operation 
is done. 


Output indicators may also be in an OR relationship. If 
either or both of the OR conditions are met, the output 
operation will be done. OR lines are indicated by the word 
OR in columns 14-15. Both AND or OR lines may be used 
together to condition an entire output line, A maximum of 
20 AND, OR, or mixed AND and OR lines are allowed in an 
output operation. AND and OR lines cannot be used to 
condition a field (see Examples, Example 3). 


The use of an LO-L9 indicator in an OR relationship with an 
LR indicator can result in the specified operation being done 
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twice when LR is on. One operation is performed during LR 
processing and the other at detail or total time. The follow- 
ing example shows how to eliminate duplicate output 
during the LR cycle (LR may have been set on during the 
previous cycle). 
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External Indicators 


A file named in the output-format specifications may be 
conditioned by an external indicator in the file description 
specifications. External indicators can also be used to con- 
dition a record or field. 


No output can occur to a file if it is conditioned by an 
external indicator and that indicator is off. Therefore, if a 
file is conditioned by an external indicator, all output 
records handled by the file must also be conditioned by 
the same indicator. . 
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Control Level Indicators 


Control level indicators entered in columns 23-31 of this 
sheet specify when output records or fields are to be written: 


1. ‘If the control level indicator is entered along with a T 
in column 15 and no overflow indicator is used, the 
record is written only after the last record of a control 
group has been processed. 


2. If the indicator is entered along with a D in column 
15 and no overflow indicator is used, the record is 
written only after the first record of the new control 
group has been processed. 


3. If the control level indicator is entered along with an 
overflow indicator, the record is written after the 
overflow line has been sensed (provided a control 
break has also occurred). 


Overfiow Indicators 


Overflow indicators are used to condition output operations 
on the printer. The operations conditioned by the overflow 
indicator are done only after the overflow line has been 
passed. 


If you have not assigned an overflow indicator to the 
printer file in the file description specifications, you may 
not use an overflow indicator in the output specifications. 
In this case, advancing the forms to a new page is handled 
automatically, even though no overflow indicator has been 
assigned. If any specification line not conditioned by an 
overflow indicator specifies a skip to a line on a new page, 
overflow indicators turn off before forms advance to a new 


page. 


An overflow indicator may appear on either AND or OR 
lines. However, only one overflow indicator may be associ- 
ated with one group of output indicators. That overflow 
indicator must also be the same indicator associated with 
the file on the File Description Sheet. 


When the overflow indicator is used in an AND relationship 
with a record identifying indicator, unusual results are often 
obtained. This is because the record type might not be the 
one read when overflow has occurred. Thus, the record type 
indicator is not on and all lines conditioned by both overflow 
and record type indicators do not print. 


If at all possible, use overflow indicators and record type 


indicators in an OR relationship when conditioning output 
lines. 
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An overflow indicator cannot condition an exception line 
(E in column 15), but may condition fields within the 
exception record. 


If an overflow indicator is not specified, the RPG II compiler 
assigns OA. 


First Page Indicator 


The first page (1P) indicator is usually used to allow printing 
on the first page. It may also be used in connection with 
the overflow indicator to allow printing on every page (see 
Examples, Example 4). The information printed out on 

the line conditioned by the 1P indicator is usually constant 
information used as headings. The constant information is 
specified on the Output Sheet, columns 45-70. 


The 1P indicator is used only with heading or detail output 
lines. It cannot be used to condition total or exception out- 
put lines. Use this indicator only when other indicators 
(control level or resulting indicators) cannot be used to 
control printing on every page. 


All lines conditioned by the 1P indicator are written out 
even before the first record from any input file is processed. 
Therefore, do not condition output fields (except PAGE 
and UDATE) which are based upon data from input records 
by the 1P indicator. Calculation operations cannot be con- 
ditioned by the 1P indicator. 


When printed output is being spooled on Model 15, the 1P 
halt allowing forms alignment is not issued. To perform 
alignment of printed output when using print spooling, you 
may use the ALIGN-YES parameter on the PRINTER OCL 
statement. For more information, see the IBM System/3 
Model 15 System Control Programming Reference Manual, 
GC21-5077. . 


Error Conditions 


On certain error conditions, you may not want output per- 
formed. Indicators can be used to prevent the data that 
caused the error from being used (see Examples, Example 5). 


Examples 


Example 1: Figure 161, insert A shows the use of one 
indicator to condition an entire line of printing. When 44 is 
on, the fields named INVOIC, AMOUNT, CUSTR, and 
SALSMN are all printed. 


Example 2: Figure 161, insert B shows the use of a control is met. If indicators 21, 40, 01, and 16 are all on, the line 
level indicator to condition when one field should be printed. _ is written, or if 21 and 40 are on and 01 and 16 are off, the 


When indicator 44 is on, fields INVOIC, AMOUNT, and line is also written. 

CUSTR are always printed. However, SALSMN is printed 

only if 44 and L1] are on. A maximum of three indicators may be used on the 
Output Sheet to condition a field since AND and OR lines 

Example 3: The use of indicators in both AND and OR may not be used to condition an output field (Figure 163, 

lines to condition an output line is shown by Figure 163, insert B). 


insert A. The specifications in lines 01-04 say that the 
detail line is written if either one of two sets of conditions 





RPG OUTPUT SPECIFICATIONS mean Py ignaed 


IBM International Business Machine Corporation 






75 76 77 78 79 80 







1 2 
= wore me TT rrr 
epee oe Bn ee LL Is ein 







Filename 




















‘oad oe ed Ee 


a = ee 
ee 


















ste fataTots t= 








ee 
ee ee 2) 





o 














rlolelefe}eleole}s]- 





> 


® 










RPG 





_ OUTPUT SPECIFICATIONS Saale cael 


een 7267787 
Program 
esis _ tire LT TTT] 


IBM International Business Machine Corporation 














Program Punching | Grapric | | | 
coo ae) 














Filename 


















A maximum of three indicators 
Sr be used to condition a TH 


BHAA 


- 163. Output Indicators 











DD £2 














Output Specifications 245 


However, you can condition an output field with more Example 4: Figure 164, insert A shows how the 1P indicator 


than three indicators by using the SETON operation in is used when headings are to be printed on the first page 
calculations. For instance, indicators 10, 12, 14, 16, and only. Figure 164, insert B shows the use of the 1P indicator 


18 are to condition an output field named PAY. In calcula- and overflow indicator to print headings on every page. 
tion specifications, you can SETON indicator 20 if indica- . 

tors 10, 12, and 14 are on. Then condition the output 

field PAY on indicators 20, 16, and 18 on the Output Sheet. 
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Example 5: Figure 165 shows coding necessary to check 
for an error condition and to stop processing on and writing 
from the record in error. If FIELDB contains all zeros, halt 
indicator H1 turns on (see line 03 of Figure 165, insert A). 
In the calculation specifications, if H1 is on, resulting indi- 
cator 02 turns off (see line 01 of Figure 163, insert B). On 
the Output Sheet, FIELDA and FIELDB are printed only 
if 01 is on (see lines 03 and 05 of Figure 165, insert C). 
Therefore, if indicator 01 is off, fields. A and B are not 
printed. Use this general format when you do not want 
information that is in error to be printed. 


COLUMNS 32-37 (FIELD NAME) 


In columns 32-37, use one of the following to name every 
field that is to be written out. 


e Any field name previously used in this program. 


@ The special words PAGE, PAGE! , PAGE2, *PLACE, 
*PRINT, UDATE, UDAY, UMONTH, and UYEAR. 


e@ A table name, array name, or array element. 


The field names used are the same as the field names on 
the Input Sheet (columns 53-58) or the Calculation Sheet 
(columns 43-48). Do not use these columns if a constant © 
is used (see Columns 45-70 in this chapter). If a field name 
is entered in columns 32-37, columns 7-22 must be blank. 


Fields may be listed on the sheet in any order since the 
sequence in which they appear on the printed form is 
determined by the entry in columns 40-43. However, they 
are usually listed sequentially. If later fields overlap the 
first fields specified, the data which is overlayed is lost. 


The sign (+ or -) of a numeric field is in the units position 

(rightmost digit). A minus sign in the units position prints 
as a letter unless the field is edited (see Column 38 in this 

chapter). 


PAGE 


PAGE is a special word which causes automatic numbering 
of your pages. Enter the word PAGE, PAGE], or PAGE2 
in these columns if you wish pages (or an individual record) 
to be numbered. When a PAGE field is named in these 
columns without being defined elsewhere, it is assumed to 
be a four-position numeric field with no decimal positions. 


However, a PAGE field can be defined in input or calcula- 
tion specifications and may be up to 15 positions long. A 
PAGE field defined elsewhere must be defined with zero 
decimal positions, Leading zeros are suppressed, and the 
sign is not printed in the rightmost position unless an edit 
word or edit code is specified. The page number starts with 
1 unless otherwise specified, and one is automatically added 
each time the PAGE field is written. See Columns 53-58 

in Chapter 7 for information concerning page numbering 
starting at a number other than 1. 


It is possible at any point in your job to restart the page 
numbering sequence. To do this, set the PAGE field to 
zero before it is printed. One method of setting PAGE 
field to zero is to use Blank After (see Column 39 in this 
chapter). Another way is to use an output indicator. A 
PAGE field will always be printed even though the field is 
conditioned by an indicator. If the indicator is on, the 
PAGE field is set to zero, and one is added before it is 
written. Remember that one is always added to the PAGE 
field before it is written (see Examples, Example 1). 


The three possible PAGE entries, PAGE, PAGE1, and 
PAGE2, may be used for different output files, Do not 
use the same name for two different output files. 


*PLACE 


*PLACE is a special RPG II word which makes it possible 
to write or punch the same field in several locations on one 
record without having to name the field and give its end 
position each time the field is written or punched. The 
fields are written or punched in the same relative positions 
ending in the column specified by *PLACE. For example, 
if you wish fields A, B, and C to appear twice on one line, 
you can specify this in two ways: 


1. Define each field and its corresponding end position 
each time it is to be printed (Figure 166, insert A). 


2. Use the special word *PLACE (Figure 166, insert B). 


Both coding methods produce a line which looks like this: 


Print positions 


1 — 1011— 20 21 — 3031 — 40 41 — 50 51 — 60 


a Ae at ee ete ee ce a ee a 


FIELDA FIELDB FIELDC FIELDA FIELDB FIELDC 
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When using *PLACE, all fields named for each record type 9. A *PLACE specification must not be conditioned by 


(H/D/T/E) are written or punched as usual in the locations indicators in columns 23-31. *PLACE is automati- 
specified. The entry *PLACE then causes all of these same cally conditioned by the same indicators which condi- ( 
fields to be written or punched ending at the position speci- tion the field or fields to be repeated. 


fied in the *PLACE statements. 
Note: Attempts to use the *PLACE function for other 
When using *PLACE, remember: than its defined purpose may produce unpredictable results. 


1. *PLACE must be specified after the field names which 


are to be placed in different positions in one line (see *PRINT 
Examples, Example 2). . 
*PRINT is a special RPG II word which causes fields and 
2. *PLACE causes all fields (in a record type) above the constants that were punched in the card to be printed on 
*PLACE entry to be written or punched. the card. This enables you to more easily determine what 
| information is found on the card. For the MFCU, *PRINT 
3. | *PLACE must appear on a separate specification line prints the field in the positions which correspond one-for- 
for every additional time you want the field or group one to the columns in which the field is punched (see 
of fields written or punched. Examples, Example 3). For the MFCM, *PRINT prints 
8 the field in the following manner. 
4. The end position specified for *PLACE must be at 
least twice the highest previously specified field end Punched Printed 


position, but not greater than 256. 
Columns 1-64 _ Positions 1-64 by print head 1. 


5. | Anend position must be specified for every *PLACE Columns 65-80 Positions 49-64 by print head 2. 
line. If you do not allow enough space for all fields 
and constants prior to the *PLACE to be printed When using *PRINT, remember: 
again, overlapping occurs, with the *PLACE field 
overlapping prior characters. The end position must 1. *PRINT may be used only once for each record. 
not be lower than the preceding end position specifi- 
cation. . 2. *PRINT must be specified after all punch fields 


which are to be printed on the card are named. 
6. The leftmost position of the fields to be moved by 


the *PLACE specification is always assumed to be 3. The *PRINT specification may be conditioned by 
position 1. indicators in columns 23-31. Columns 7-22 and 
. 38-74 may not be used. 
7. The high-end position to be used by *PLACE cannot . 
be defined by a whole array. If a whole array does 4. *PRINT may be used on a card file only. 
have the highest end position of all fields preceding 
the *PLACE, a field must be defined which has an If you want to print the fields in positions other than 
end position greater than the end position of the those which correspond to the punch positions of the fields, 
whole array. This field can be a one-position blank you must use the card printing option (see Columns 40-43 
constant. in this chapter). 


8. When *PLACE is specified for card output, the fields 
and constants named above *PLACE will be repunched. 
Any printed output on the cards will not be reprinted 
unless an * is entered in column 40 (MFCU only) of 
the same line as *PLACE. 
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Date Field The format is specified by an entry in Column 21 of 
the control card. The edited date field is eight char- 


Often you want the date to appear on your printed report, acters long, in one of three formats: 

punched card, or output record. Use special words 

UDATE, UMONTH, UDAY, and UYEAR to get the date a. United States (MM/DD/YY). 

field you desire. The date is entered by using a DATE OCL b. United Kingdom (DD/MM/YY) 

statement (Models 10, 12, and 15) ora DATE OCC (Model c. World Trade (DD.MM.YY). 

15 only). See the appropriate SCP reference manual listed 

under Related Publications in the Preface. 2. | UDAY may be used for days only, UMONTH for 


months only, and UYEAR for years only. 

1 UDATE gives a six-character numeric date field in 
one of two formats (d, m, and y are the day, month 3. These fields may not be changed by any operations 
and year positions in the UDATE field): specified in the program. 


a. United States (mmddyy). 
b. United Kingdom/World Trade (ddmmyy). 
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Notice that an end position (columns 40-43) is given for 


Examples 


( 


every *PLACE. Fields A, B, and C have a total length of 15 


Example 1: Figure 167 shows how an output indicator can 
be used to reset a PAGE field to zero. When indicator 15 


characters; thus the end position for each *PLACE allows 
room for printing 15 additional characters on the output 


the PAGE field is reset to zero and one is added before 


line. The resulting printed line is 60 characters long. There 


is no overlapping of output fields. 


? 


is on 
~ the field is printed. When 15 is off, 


one is added to the 


contents of the PAGE field before it is printed. 


Note: If the end position given for the *PLACE field does 


not allow room for all characters to be repeated, previous 
characters in the output line are overlaid by the *PLACE 


field. 


Example 2: Figure 168 shows the use of the special word 


*PLACE to print the same fields several times on the same 


line. Fields A, B, and C are to be printed four times on one 


line (Figure 168, insert A). In Figure 168, insert B *PLACE 


is specified after the fields which are to be printed several 
times on the same line. All fields to which *PLACE applies 


appear on the same record. The second *PLACE causes the 
original three fields to be repeated on the printed line. Field 


D, which appears on the total record, is not affected by 


*PLACE. 
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Figure 167. Resetting the PAGE Field to Zero 
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Example 3: Figure 169 shows how the special word UDATE field (line 09) is punched but not printed because 
*PRINT may be used to cause printing of the output fields it is written after the *PRINT entry. 
on the punched cards. The fields EMPLYE, SERNUM, and 
PAYRT are to be punched on the card (specification lines Notice in Figure 169 that *PRINT is specified after the 
05-07). The *PRINT entry in line 08 causes the three fields fields which are to be printed. All fields to which *PRINT 
written above the *PRINT entry (EMPLYE, SERNUM, and apply appear on the same record. Therefore, the *PRINT 
PAYRT) to print on the card in positions corresponding entry applies only to fields specified in lines 05-07, not to 
one-for-one to the punch positions (see Figure 169). The fields specified in lines 02 and 03. 


JACK JACOBSON 74 


12°93 4 5 6 7 8 9 10°11 12 13 4 IS 18 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 


32! 942 


33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 $3 $4 55 S657 5B 59 60 61 62 63 64 
65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 61 82 63 84 BS 86 87 BB 69 90 91 92 93 94 95 96 


97 98 99 100 101 102 103 104 105 106 107 108 109 110 e 3 N13 14 NS 16 117 WB NF 120 121 122 123 124 125 126 127 128 


e ee e 
ee e2e808 e 
@ 
3 


@ 
32 


e@e eee e 
12.3 4 5 6 7 8 9 10 I 12 13 14 15 1% 17 18 t9 20 21 22 23 24 25 26 27 26 29 30 


e e ee @ 
35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 SO S51 52 53 54 55 56 $7 58 59 60 61 62 63 64 


~NDOPT-NADPA-NSOYPDV 
“NAOPOD-NAOPW]-NAQOPD 


65 66 67 68 69 70 71 72 73 74 75 76 77 76 79 80 81 82 63 84 85 66 67 88 89 90 91 92 93 94 95 96 


1BM 3700 


RPG OUTPUT SPECIFICATIONS Sora ariaiaad 


IBM International Business Machine Corporation. 
75 76 77 78 79 80 


Program 
Identification 


>> | commas [Feast pasiages | No Sign E cR X= Remove 
Plus Sign 
: 











Y = Date 
_ Field Edit 


Filename 


















































Figure 169. *PRINT 
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COLUMN 38 (EDIT CODES) Each edit code punctuates differently. If you use an edit 
code in column 38, columns 45-70 must be blank unless 


Use column 38 when you want to: ; asterisk fill or a floating dollar sign is required (‘*’ or ‘$” 
entered in columns 45-47). If an edit code is used to punc- 
1. Suppress leading zeros for a numeric field. tuate an array, two spaces are left between elements of the 
array to the left of each element. Only unpacked numeric 
2. Omit a sign from the low order position of a numeric data can be edited. 
field. 
Figure 169 shows the edit codes and how data looks when 
3. Punctuate a numeric field without setting up your it is edited. Each code punctuates the field a little differ- 
own edit word. ently. All codes suppress leading zeros, except the J World 
Trade format for output (J-entry in column 21 of the con- 
A table summarizing the edit codes that can be used is trol card specifications). For this J-entry, all zero balances 
printed above columns 45-70 on the Output Sheet. and balances with zero values to the left of the decimal 











































United. World Trade ** 


Zero Balance - 






Positive Number -| Positive Number -| Negative Number - *| Negative Number - * 





Two Decimal No Decimal Three Decimal No Decimal eae No Decimal 
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Positions Positions Positions Positions Kingdom J Positions 
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* The character } is a negative zero. It is printed for the 64 character set, but not for the 48 character set. 


** Zero balances for the World Trade format are printed or punched in two ways, depending on the entry 
made in column 21 of the contro! card specifications. Two decimal positions are used for illustration. 


Figure 170. Examples of Edit Code Usage 
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comma are written or punched with one leading zero (0,00 
or 0,04). If an edit code is specified on the Output Sheet, 
and the edit code is to print zero balances, a zero balance 
field will always have a zero to the left of the decimal 
comma. The edit code cannot suppress it. 


Normally, when you use an edit code in column 38, you 
cannot define an edit word in columns 45-70; however, 
there are two exceptions: 


1. If you want leading zeros replaced by asterisks, enter 
“* in columns 45-47 of the line containing the edit 
code. 


2. If you want a dollar sign. to appear before the first 
digit in the field (floating dollar sign), enter ‘$’ in 
columns 45-47 of the line containing the edit code. 


Asterisk fill and floating dollar sign are not allowed with 
X, Y, and Z edit codes. 


- It is also possible to have a dollar sign appear before the 
asterisk fill (fixed dollar sign). This is done in the follow- 
ing way: 


1. Place a dollar sign constant one space before the 


beginning of the edited field. 


2. ‘Place ‘*’ in column 45- af of the line containing the 
edit code. 


Figure 171 shows the effect different edit codes have on the 
same field with a specified end position for output. 


COLUMN 39 (BLANK AFTER) 


Entry Explanation 


Blank Field is not to be reset (blanked or zeroed) 
after writing. 


B Field is to be reset (blanked or zeroed) after 
writing. 


Use column 39 to reset a field to zeros or blanks. Numeric 
fields are set to zero and alphameric fields are set to blanks. 
This column must be blank for Look-Ahead fields, Udate 


fields (UDATE, UDAY, UMONTH, UYEAR), and constants. 
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Negative Number 

—Two Decimal 

Positions— 

End Position 
Edit Specified as 10. 


Codes Output Print Positions 


Eras ERCCOOSE 





* K represents a negative 2 


Figure 171. Effect of Edit Codes on End Position 


Resetting fields to zeros is useful when you are accumulat- 
ing and printing totals for each control group. After finding 
the total for one group and printing it, you want to start 
accumulating totals for the next group. Before you do this, 
however, you want your total field to start with zeros, not 
with the total it had for the previous group. Blank After 
will reset the total field to zero after it is printed. 


If the field is to be used for output more than once 
(punching and printing), be sure the B is entered on the 
last output line for that field. Otherwise, the field is 
blanked out before all required output is finished. 


If a field name specified with Blank After is a table name, 
the element of the table looked up last will be blanked or 
zeroed. 


COLUMNS 40-43 (END POSITION IN OUTPUT RECORD) 
Disk, Punched Cards and Printed Reports 


Use columns 40-43 to indicate the location on the output 
record of the field or constant that is to be written. You 
enter only the number of the punching or printing position 
of the rightmost character in the field or constant. 


The largest number to be used to indicate end position for 
disk output is 9999. The largest number for printer output 
depends upon the number of print positions on the printer. 


When *PLACE is specified for the printer (see Columns 
33-37 in this chapter), end position indicates the end posi- 
tion of the last field of the group that is to be printed. Thus 
you must be sure you have indicated an end position that 
allows enough room for all specified fields to be printed. 


Be sure to allow enough space (as indicated by end position 
entries) on your output record to hold edited fields. If you 
overlap edited fields the resulting output may be unpre- 
dictable. 


Printing on Cards (MFCM) 


The MFCM prints and punches fields and constants on a 
card by using *PRINT in columns 32-37. Data punched 

in columns 1-64 is printed in positions 1-64 by print head 1. 
Data punched in columns 65-80 is printed in positions 49-64 
by print head 2. 


If you wish to print in other positions than those provided 
by *PRINT you must specify the following: 


1. Name the field in columns 32-37. 
2. Specify a print head number (1-6) in column 41. 


3. Specify a print end position (01-64) in columns 42 
and 43. (The leading zero in column 42 is mandatory.) 


Printing on Cards (MFCU) 


The MFCU prints and punches fields and constants in the 
same positions on a card by using *PRINT in columns 
32-37. If you want to print fields in positions other than 
those which correspond to the punch positions of the fields, 
you must: 


1. Name the field in columns 32-37. 
2. Place an * in column 40. 


3. Specify an end position for that field in columns 
41-43, The maximum entry for an end position is 
128. 


The field will be printed in the upper portion of the card in 
the position you have specified. 


All lines with an * in column 40 should follow all lines 
specifying punching only and all *PRINT lines for that 
record (see Example). All the punching for a card is done . 
before the printing. 


Note: If Blank After (column 39) is specified for a field to 
be punched and printed, the B entry must be entered on the 
last line specifying printing for that field. All the printing 
is done for a card after all the punching, so be careful not 
to blank out a punch field and then try to print it later. If 
*PRINT is the last line specifying printing for a field, the 

B entry is made in the last punching specification line for 
that field. If an * is used in column 40 to print a field after 
it is punched, the B entry is made in the last print specifica- 
tion line for that field. A Blank After entry is correctly 
entered for a punch and print field in Figure 172. 
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Figure 172. Printing on the MFCU 
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Example 


Figure 172 shows several examples of printing on a card. 
The coding shows that the name field will be punched and 
printed in the same card columns. The account number 
field is punched only. The amount due field is punched in 
columns 75-80, but for ease of reading it is printed with an 
edit word in columns 44-52. For the same reason, a con- 
stant is printed to identify the amount due field. 


In line 06, the field AMTDUE is blanked out after it is 
printed by a B entry in column 39. If the B entry appeared 
in column 39 of line 05, the field would be blanked out 
after punching and would not be available for printing. 


COLUMN 44 (PACKED OR BINARY FIELD) 


Entry Explanation 

Blank Output field in unpacked numeric or 
alphameric format 

P Output field in packed decimal format 

B Output field in binary format. 


Column 44 must have an entry if a numeric field (decimal 
number) is to be written in packed decimal or binary 
format. Packed decimal and binary fields should not be 
printed. 


After decimal fields have been processed, they may be left 
in the unpacked format. However, for more efficient use 
of disk, tape, or 80-column card space, decimal fields can 
be converted into packed decimal or binary format. Fields 
of four or less bytes are converted to two bytes of binary 
data for output; fields from five to nine bytes are con- 
verted to four bytes of binary data for output. The output 
device for packed decimal or binary fields can be disk, tape, 
1442, MFCM or 3741 directly attached. See Column 43 in 
Chapter 7 for related information pertaining to input packed 
and binary fields. 


You cannot specify packed or binary output to the follow- 
ing files: 


@ MFCU files 
@ CRT/keyboard files 
@ CONSOLE files 


© BSCA files 





COLUMNS 45-70 (CONSTANT OR EDIT WORD) 


Use columns 45-70 to specify a constant or an edit word. 


Constant 


A constant is any unchanging information that is entered 
by a specification. Constants are usually words used for 
report headings, column HenGines or card identification. 
To print a constant on a card, an * must be entered in 
column 40 (see Columns 40-43 in this chapter for printing 
on cards). 


The following rules apply to constants (refer to Figure 173 
for examples): 


1. Field name (columns 32-37) must be blank. 


2. Aconstant must be enclosed in apostrophes, Enter 
the leading apostrophe in column 45, | 


3. An apostrophe in a constant must be represented 
by two apostrophes. For example, if George’s 
appears as a constant it must be coded GEORGE”S. 





GX21-9090 U/M 050° 
Printed in U.S.A. 


SPECIFICATIONS 


i ae sus Card Electro Number 12 
eel gE 


75 76 77 78 79 80 
Program 
Identification 
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~4, Up to 24 characters of constant information can be 
placed in one line. Additional lines may be used, but 
each line must be treated as a separate line of con- 
stants. The end position of each line must appear in 
columns 40-43, 


Edit Word 


An edit word gives you more flexibility in punctuating a 
numeric field than an edit code. You directly specify 
whether commas, decimal points, and zero suppression are 
needed, whether the negative sign should print, whether 
the output is dollars and cents, and whether you want a 
dollar sign and leading asterisks. Constants can be used 

_ within edit words (see Examples of Edit Words in the fol- 
lowing. test). 


The following rules apply to edit words: 
1. Column 38 (Edit Codes) must not be used. 


2. Columns 32-37 (Field Name) must contain the name 
of a numeric field. 


3. Columns 40-43 (End Position in Output Record) 
must contain an entry. 


4, An edit word must be enclosed in apostrophes, 
_ Enter leading apostrophe in column 45. The edit 
word itself must begin in column 46. 


5. Any printable character is valid, but certain characters 
in certain positions have special uses (see Editing 
Considerations in the following text). 


6... An edit word cannot be longer than 24 characters. 


7. The number of replaceable characters in the edit 
word must be equal to the length of the field to be 
edited. See Editing Considerations in the following 
text for a discussion of replaceable characters. 


8. All leading zeros are suppressed unless a zero or 
asterisk is specified in the edit word. The zero or 
asterisk indicates the last leading zero in the field 
to be replaced by a blank or asterisk. 
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9. Any zeros or asterisks following the leftmost zero 
or asterisk are treated as constants (they are not 
replaceable characters). 


10. Any constant to the left of the zero suppression 
stop character (except $) will be suppressed unless 
a Significant digit precedes the constant. 


Editing Considerations 


Always leave exactly enough room on the output file for 

the edited field. If the field to be edited is seven characters 
long on the input record, make sure seven positions allows 
enough space for it to be written on the output file. By the 
time the field is edited, it may contain many more characters 
than seven. 


When computing the length of an edited output field, deter- 
mine how many of the editing characters are replaceable. 
The number of replaceable characters in the edit word must 
be equal to the length of the field to be edited (see follow- 
ing Note). The replaceable characters are: 


Character Use 
b Blank. 
= Asterisk fill. 
0 Terminate zero suppression. — 


A blank is always a replaceable character, but only the first 
* or 0 may be a replaceable character (see rule 9 above). 
Fixed or floating dollar signs, decimal points, commas, 
ampersands (representing blanks), negative signs (CR or -), 
and constant information are not replaceable characters. 


Note: There is an exception to the rule that the number of 
replaceable characters in a word must be equal to the number 
of characters to be edited in the unedited field. If the first 
character of the edit word is a zero, it is possible to have an 
additional replaceable character in the edit word. In this 
case, the field will not be zero suppressed, but all other 
specified editing will be performed. For example: 


Unedited Replaceable 
Unedited Edit Edited Field Characters in 
Field Word Field Length Edit Word 
@ 012345 owwHHY «= w12345 6 6 
@ 012345 OBYYKKE =» $0123.45 6 7 
@ 012345 = covBHYKK —- 40012345 6 7 


In case A, the edit word contains six replaceable characters, 
including the leading zero. The edited field is six positions 
long. 


In case B, the edit word contains seven replaceable characters. 
The leading zero is retained but the word occupies a space 
in the edited field which is seven positions long. 


In case C, the edit word contains seven replaceable charac- 
ters. The second zero is a constant that will always appear 
in the edited field as a leading zero. The edited field is 
eight positions long. 


Edited 

Field 

Length 
6 


7 
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If it is necessary to show a negative number, a sign must be 
~ included in the edit word. You may use either the minus 
sign (-) or the letters CR. These print only for a negative 
number; however, the character positions they require must 
be taken into consideration when entering the end position 
of the field on the Output Sheet. Figure 174 shows that 
for the field PERCPL, CR is to be printed for a negative 
balance. Assume the field PERCPL contains the negative 
data 2N(-25%). The printed output would be 25CR. 
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If PERCPL was positive, CR would not print and the same 
field would appear as 25. 


You may also use a minus sign to indicate a negative balance. 
If you want to leave a space between the number and the 
negative sign, place an ampersand (&) in the edit word before 
the minus sign. PERCPL would then print as 25-. 


If you wish to have a dollar sign printed, you also indicate 
this in your edit word. To print a dollar sign at the left of 
the field called SPRICE, put the dollar sign ($) next to the 
first quote mark, then put in the necessary blanks and 
punctuation. A dollar sign in this position is called a fixed 
dollar sign. The SPRICE field in Figure 175, line A can 
look like any of the following (N stands for any number): 


$SNNN.NN 
$ NN.NN 
$ N.NN 
$ .NN 


Suppose, however, you do not want a lot of empty space 
between the dollar sign and the first digit when zero sup- 
pression occurs. (This is commonly the case when writing 
checks.) You may fill in this empty space with asterisks 
(*). Instead of using 0 to indicate zero suppression, you 
use the asterisk to indicate that all extra spaces should be 
filled with asterisks. The SPRICE field in Figure 175, line 
B can look like any of the following (N stands for any 
number): . 


$NNN.NN 
$*NN.NN 
$* *N.NN 


$* * * NN 
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You may always want the dollar sign to be next to the left- 
most digit instead of filling in the space with asterisks or 
leaving extra blanks. This is indicated in the edit word by 
placing the $ next to the zero suppress 0. A dollar sign which 
changes positions depending upon the number of positions 
zero suppressed is known as a floating dollar sign. When 
printed, the SPRICE field in Figure 175, line C can look like 
any of the following: 


$NNN.NN 
$NN.NN 
$N.NN 
$.NN 

Note that an extra space must be left in.-the edit word for 


the floating dollar sign. This ensures a print position for 
the dollar sign if the output field is full. 


Output Specifications 263 


Examples of Edit Words 


Figure 176 shows examples of edit words. All examples 
assume that column 38 is blank. In an attempt to avoid 
confusion about the number of blank positions in an edited 
data field, the symbol ¥ is used to indicate where blank 
spaces appear. Zeros have not been slashed where no con- 
fusion with the letter O is likely to result. 


Examples labeled A-H are sample edit words for some of 


the most frequently desired output formats. The numbered 


examples (1-53) that follow this first group are intended to 
show possible ways of handling many of the editing situa- 
tions with which you might be faced. 


The letters and numbers under the heading Example Number 
in Figure 176 refer to the letters and numbers in the follow- 


ing text: 


A. 
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Normal method of editing an amount field. Deci- 
mal point appears between dollars and cents; 
commas offset every three positions in the dollar 


' portion of the field. The symbol CR appears in the 


edited data field when the data is negative; other- 
wise, it is replaced by blanks. 


Since zero suppression occurs through the unit- 
dollar position (zero in the edit word just left of 
the decimal point), blanks replace leading zeros-and 
constants until a significant digit is encountered or 
through the specified zero. Thus, the decimal 


- point and data to its right always appear in the 


edited data. Notice that, since zero suppression 
occurs through the position of the zero in the edit 
word, zero is replaced by a blank when no signifi- 
cant digit appears in the data field. 


Normal method of punctuating a quantity field. 
Leading zeros and constants are replaced by blanks 
through the position of the zero suppression zero 
(the next-to-last position in the edit word). Thus, 
if the entire data field is zero, a zero appears only 
in the low-order position of the edited data. A 
minus sign appears in the edited data if the field is 
negative; if not, the minus sign is replaced by a 
blank. The constant ON HAND always appears in 
the edited data as it is specified in the edit word 
regardless of whether the minus sign appears as 
specified or as a blank. 


D, 


Ps 


Normal editing of an amount field. Because the 
zero suppression zero appears in the ten-dollar posi- 
tion of the edit word, leading zeros and constants 
are retained starting with the unit-dollars position. 
Because the dollar sign is placed just left of the zeio 
suppression zero, it becomes a floating dollar sign. 
In an edited data field, the floating dollar sign 
always appears to the immediate left of the first 
digit. Notice that an extra position is allowed in 
the high-order portion of the edit word to accom- 
modate the floating dollar sign. The minus sign 
appears as a constant since a zero is specified to the 
left of it. . 


Similar to example C, except that zero suppression 
is allowed up to the decimal point, CR is used to 
indicate a negative value, and two asterisks are 
printed at the end of the edited data. In the edited 
data shown, the dollar sign has floated to the left - 
to precede the first significant digit. If the unedited 
data were all zeros, it would appear in the output 
record as $.00bK**. Note, again, the extra position 
in the leftmost portion of the edit word to allow 
for the dollar sign, 


Similar to example D, except that no symbol is 
used to indicate a negative value and the edit word 
includes a fixed dollar sign. Because the dollar sign 


is placed in the extreme left position of the edit 


word, it is a fixed dollar sign. The fixed dollar sign 
always appears in the leftmost position of the edited 
data field. 


This example shows that a space can be left in the 


edited data field between a fixed dollar sign and the 


first digit, even when the entire field contains signifi- 
cant digits. An ampersand (&) in an edit word 
becomes a blank in the edited field. The minus sign 
appears in the edited data if the field is negative. 
The constant GROSS always appears in the edited 
data. 


By not specifying a zero or asterisk, zero suppres- 
sion can occur throughout the field; thus, edited 
data begins with the first significant digit. 


This example shows the use of asterisk fill. 


Asterisks replace all positions in the edit word to the 
left of the first significant digit. If the asterisk were 
in the rightmost position of the edit word, the entire 
edited field would contain asterisks when the data was 
all zero. 


suotqeoryigads yndjno 


SOT 


ons 


SPIOM MPA Jo sojduexgy *(Z Jo [ 131g) OLT 





EDIT WORD EXAMPLE | 
. NUMBER. | SOURCE DATA : APPEARS IN OUTPUT RECORD AS: 
|45 46 47 48 4950 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 | 
BRERERRE SERRE 
TET TAT TET TOT T-[alolnialalalwipt yy TT TT [BT 00000000 TB BKKBKKKO B BONBHAND 
tT TT tet TTT rst@l T-f fT f—l«i TT | TP PP TT TT 0000000005 + | BbbBEEBUKSO.05 B* 
PT TT TT TT TT si@l- tT leyRixix[ TP PPP TT 0034567890 — | 6 4S345,678.90 CR ** 
SED ee ae ES ee Pe ft] ft tt tt thE 0000000000 | SbbbbKBEBBE.OO 
PTT$ler yt Tt Ol Te TT 8 [=fa TGIRIOIS|S[" TT 1234567890 — | $b12,345,678,90 B— BGROSS 
= Bae —['T | TT Tt yt Pt fh hG 00000000123 — | bHbBHBHKHHI.23—- 
a teh eg er ee ee tt ee ede 0000195792. sh 8" 821,957.92 bbe 
Mise Wath e Ue et ke de PTT tT Tee et ey ty fa 0000135678 | oooo135678 
Pt tt et Pett tr Te dd eT 2 0000135678 + | 0000135678 
rT TTT Tre ttt tert Pe Pe ee pth 3 0000135678— [ o000135670 
ttt tT et ty er ta EE EE TT 0000000000 | bb bbbBHBBH 
ttt te tte et et tT te tr 0000735678 + | bewBI3Z5678 
RT EEE EE EE EE | BbbB135678 
tT TT ET ry yt tet Pre Er 7 0000735678— | BbbBI35678 
yg TT TT yy tt er ee te tt Pre 8 0000135678+ | Bo001385678) 
Petit T fT dT rT TT TE TE TT fea icie ginger ity TT tT tT [9 0000135678 + | bbwKIS5678 BEB BENET 
Pit | | TT Te TT fa feie iginielti ty TT Tt 00000135678 — | bHK135678 BCR BNET 
P'T tT TT TT Te -P3 PR INTE Tr tT 0000135678 — | 6bH135678 B— BBNET 
Pt tT TTT Ty TT Te inje ria iciaR yt Ty 2 0000135678 | eb ISS678KNETBBH 
PTT TP errT ter Tinie triaicia tt PT rT 30000135678 — | bH135678 BNETBCR 
r'TE TT TTT yy TT faleéteiRioletiizi yy Ty Tt TT 4 0000135678 | 664135678 BYUPROFIT 
IST | TP Pr TE TT aie INTE PT 5 0000135678 + | Sébub135678 BH UNET 
TS] TTP Tr aera invert PP 6 0000135678— | SéeBH135678 B— BNET 
'T$i@i TT TT TTT rT ereinfetti ty | TT PP 7 0000135678 | $0000135678 B BNET 
rt | | TT TT Sia To iaiciagi | fT TTT PT Tc Tis 0000135678— | BbbKS135678 BCR 
tT TT TT TT SIGE tT feiciai | tT tT tT TT ct cP rT | | 9 1234567809 - | $1234567809 BCR 
'i$t T TT Ty tT ier RI cirR a IGIRIOsisy# tT | | PT [20 c000000000 | SbKuEKHBKOO KEK BGROSS 
pe TTT Terri ttt tT TT eye TT yy fat o000135678— | *000135678 
p* it Tt Pte ty tT 22 1234567890+ | 1234567890, 
le Ne Nees ieee RI te de ail cs = 228. |. MO00ISH679 — 1) Pe tabo7e. 
PTT T tsi TT ee TT Te TT Scie afainfey ri TT tT 2a 0000135678 — | Bb KHK1,356,78 BCR BENET 
Oe me ea fo] | [| |-| | [alicia éi-Injefy yy fT TT 25 0000135678 TT 6b 1,356,78 BEA B-NET 
tT | eT Sia Tet a invetsy TT TP 26 0000000005 | BbBHEBEEKSe,05 BNET 
i a a rs| ISIGi-T | tty TP Pr 27 0000000005" Bebb EKBEES.O5 
iT | TT TT sig. TP -r 2 1234567890- | $12,345,678.90 - 
tee Tobe 1 Ste _iciAltt | tt Tt yy ft 29 0001356789 — | BbbBS13,567.89 CR 
Pete ae eae a ¥iCiRix[x TT TT yy P30 0000135678 + | *****1,356.78 BoB ** 
et tg ISI Ol St tT | I-(S[AILIETSI* [TTT [31 0000001234 BbbKKES.012.34 B SALES 
'TSlal Lt Tie | i@l.f tT telat | PP TT [32 1234567890 — | $612,345,678.90 CR 
ed | {| tie} | | [-loleipla@(BlAILINicle;' | 330 | 1234567890-_|_1,234,567,890 — OLDKBALNCE _| 
Pt] fal [ | tet T Tt TT I@l [-lol[L ipl aiBiAILInicie['] 34 | 0000000000 | BBKKBKEBKKKKO BW OLDBBALNCE | 
P'T Tt. TT tet TV Iplole Ie yArRist | iclein[tist' [350000135678 | BKK KK1,356DOLLARS78 CENTS _| 
P'T [T.t [| | [plolLit{tAreisl T Icleinitisi™] | TT tT [36 [000000 | bb BEB YEKBEKBE CENTS 
| tat [@l [DIOILILIATRIST T IclEIn(tisl@icirRi'{ | [| 37 | 000000 | BBBKODOLLARSOO BBUBKBEB 
P'T [imi {tL {B lO;zI -ITIAIRIET&[—[)] [TT [38 000002+ | BBBOLBS.402 BEKKEKKEK 
P'| | | I@iL(BiTS{.[ T lolz]. |TIATRIela@l-lty TT TT [39 000002 - | BHKLBS.02 OZ.TAREB- 
Ii@i_ {| [=| [ [=f | Ty TTT TTT tT ye ty 40 095140036 | bos—14-0036 
iat THIRIS{-[ UC IMULINIST.[&@lor tT tICiefolciKi' | Tf 47 0042 BOHRS.42 MINS.BO'CLOCK 
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_ SPIOM HPA JO sojduexg *(Z Jo Z Weg) OL I ANT 


Se a mC a Ma 1 
MEE LLBIat PP 


PL gob Te 
ee 


b/E_BELO 
00123456 66B1$,234.56 


000000 EBEBE.00 
0000000000 | BBEBEEBEBO*00 i 


| 00123456 

| BEBBEBBBBO*OO 
| 001234 | 012,034, 
| 0000001234 | ******,012"34 





10. 


Oe 


12. 


13. 


14, 


15, 


16. 


No edit word. The data in the output record has the 
same format as the unedited data. Notice that the 
low-order position of the output field is printed as 
an alphabetic character (J-R) if the source data field 
is negative. 


Same as 1. 
Same as 1. 


A blank edit word. All leading zeros are blanked and 
any sign in the low-order position of the unedited 
field is removed when the data is edited. Negative 
values are not identified. 


Same as 4. 
Same as 4. 


The effect is the same as shown in examples 4, 5, 
and 6, 


Although the zero suppression zero appears in the 
high-order position of the edit word, suppression of 
the first leading zero cannot be avoided. See Note in 
Editing Considerations in this section for a discussion 
of an exception. 


An ampersand appears as a blank in the edited data. 
The symbol CR appears in the edited data if the field 
is negative. It is replaced by blanks if the field is 
positive. The constant NET always appears in the 
edited data field. 


Same as 9. 


An ampersand appears as a blank in the edited data. 


A minus sign, instead of CR, indicates negative values. 


NET CR indicates when the edited data field is 
negative. Therefore, when the edited field is positive, 
NET CR appears as blanks. 


Same as 12. 


The constant PROFIT appears in the edited data field. 


Negative values are not identified. 
Similar to example 11, except that a fixed dollar sign 
is shown. An extra position is added to the edit word 


to allow for the dollar sign. 


Same as 15. 


1% 


18. 


LY) 


20. 


Zhe 


as 


PLS 


24. 


20; 


26. 


Zi: 


28. 


29. 


Although the dollar sign appears to the immediate left 
of the zero suppression zero, it is a fixed dollar sign 
because it appears in the leftmost position of the edit | 
word. 


The floating dollar sign is shown for different numbers 
of leading zeros. Note the extra position in the high- 
order portion of the edit word to allow for the dollar 


sign. 
Same as 18. 


This example shows how some zeros can appear in 
the edited field when the entire field is zero. Zero 
suppression occurs through the position of the 0 in 
the edit word. This leaves two positions in which 
zeros can appear in the edited field. 


This example shows asterisk protection and zero 
suppression for a single position. Note that the 
asterisk is replaced by a significant digit in the posi- 
tion. Negative values are not identified. 


Same as 21. 


Asterisk protection and zero suppression for an 
entire field. Asterisks are replaced by significant 
digits. 


A method of editing an amount field. Punctuation 
and zeros to the left of the first significant digit are 
blanked. The decimal point is also lost when there 
are fewer than three significant digits. The constants 


_ NET or -NET always appear in the edited field. 


Same as 24. 

Standard method for placing the floating dollar sign 
so that at least the decimal point is retained regard- 
less of the number of leading zeros. The extra posi- 
tion appears in the leftmost position of the edit word 
to compensate for the floating dollar sign. 

Same as 26. 


Same as 26. 


Same as 26. 
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30. 


31. 


32. 


33. 


34. 


35. 


36. 


37. 


38. 


39, 
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Asterisk protection and zero suppression to the 
decimal point. The decimal point is retained regard- 
less of the number of leading zeros. Note that 


_ asterisks replace punctuation when leading zeros are 


suppressed. The second asterisk appears only when 
the edited data field is negative; the third and fourth 
asterisks always appear in the edited field. 


This example shows that a constant (in this case, 
a comma) follows the dollar sign in the edited data if 
the floating dollar sign and the zero suppression zero 
immediately precede a constant. This applies if 

there are a number of leading zeros. In the case of a 
comma, this looks awkward; in the case of a decimal 
point it is a normal approach (see example 27). 


This example shows how to insert a space between a 
fixed dollar sign and the first data digit when all digits 
in the field are significant. An ampersand in an edit 
word appears as a space in the edited data field. 


Normal punctuation of a quantity field. In this 
example, all leading zeros, including the units posi- 
tion, are suppressed (compare with example 34). 


Normal method of showing a single zero in the edited 
data field when the data field contains only zeros. 


Constants in the edit word are handled the same as 
punctuation marks; that is, only constants to the 
right of the first significant digit or the zero suppres- 
sion zero appear in the edited data. Examples 37-38 
show how more edit word constants, other than the 
CR or minus, can be blanked on a positive field. 
Examples 37-39 also show the effect that the position 
of the zero suppression zero has on constants. In 
example 38, an ampersand placed after the first con- 
stant provides a space following that constant in the 
edited data. 


See example 35. 
See example 35. 
See example 35. 


See example 35. 


- 40. 


41. 


42. 


43. 


44, 


45. 


46. 
47, 
48. 


49. 


50. 
51. 


a2; 


53. 


Possible method for editing a social security number 
field. A hyphen (-) is used within the edit word. In 
the example shown, the initial zero is suppressed. 
However, if you want the initial zero to appear in the 
edited data, you must leave an extra position in the 
edit word. See the note under Editing Considerations 
for a discussion of this exception. 


This example shows the use of constants in the edit 
word, In this example, the constant contains an 
apostrophe. 


This example shows the effect that the position of 
the zero suppression zero has on the decimal point 
(or any other constants) and following zeros. . 


Same as 42. 


This example shows that a dollar sign separated from 
the zero suppression zero, even if only by a comma, 
is a constant rather than a floating dollar sign. 


Any zero or asterisk to the right of the high-order 
zero or asterisk is a constant, not a zero suppression 
zero or asterisk-protection symbol. Examples 47 and 
48 also show that asterisk protection replaces not 
only blanks, but also other constants to the left of 
the first significant digit. 


Same as 45. 
Same as 45. 


Same as 45. 

An example of editifig a date field. Since month 
numbers have at most one leading zero, it is not 
necessary to specify a zero suppression zero. Example 
50 shows the use of an ampersand to retain a blank 
space in the edited data. 


Same as 49, 
Same as 49. 


This example shows what happens to the decimal 
point when no zero suppression zero is specified for 
a field which has fewer than three significant digits. 


This example shows how to retain the decimal point 
in a data field which has fewer than three significant 
digits. 


COLUMNS 71-74 


Columns 71-74 are not used. 


COLUMNS 75-80 (PROGRAM IDENTIFICATION) 


See Chapter 2. 
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Appendix A. Running an RPG I Program—Halts and OCL 


RPG Il HALT PROCEDURES 


Figure A-1 is a list of error conditions resulting in a halt 
during execution or compilation of an RPG II program. 

Options available to the operator following each halt are 
also given. The options are: 


0 — Continue: Control is returned to the program, and 
processing continues. 


1 — Bypass: The remainder of the program cycle is 
bypassed, and the next record is read. 


2 — Controlled Cancel: End-of-job operations (specified 
by a LR indicator in your program) are done, tables ar 
- dumped, and files are closed. 


3 — Immediate Cancel: The job is cancelled without 
returning control to the RPG II program. 


For Model 15 severity codes are assigned to halts. A 
NOHALT OCL statement may be used to allow the user 
to indicate the level of severity for options. See the 
IBM System/3 Model 15 System Control Programming 
Reference Manual, GC21-5077, for more information. 


Resetting Halts (Models 10 and 12) 


In order to select an option, the operator dials its corres- 
ponding number on the rightmost address/data switch and 
presses console START. (He presses HALT/RESET if the 
system has the Dual Program Feature.) A complete dis- 
cussion of operator procedures appears in the appropriate 
operator’s guide listed under Related Publications in the 
Preface. 


270 


Resetting Halts (Model 15) 


In order to select an option, the operator presses the PF12 
key on the keyboard. This positions the cursor to the last 
halt. The operator selects the option desired by entering 

0, 1, 2, or 3 via the keyboard, and presses ENTER to con- 
tinue. A complete discussion of operator procedures appears 
in the appropriate operator’s guide listed under Related 
Publications in the Preface. 


Appendix F contains a detailed list of compilation errors. 


OPERATION CONTROL LANGUAGE FOR RPG II 


In order to compile an RPG II source program, the RPG II 
compiler program must be loaded into main storage. This 
can be done by including an IBM-supplied procedure named 
RPG (located in the Source Library) in the job stream. The 
OCL statements that include the library procedure are: 


/& 
// CALL RPG, R1 
// RUN 


The OCL statements included in the Source Library pro- 
cedure named RPG are shown in Figure A-2. 


Note: This example assumes the system is on R1. 


Library procedures can be modified. OCL statements 
necessary to modify a library procedure are described in the 
appropriate SCP reference manual listed under Related 
Publications in the Preface. 


Operator Options Model! 15 only 


Halt 1-Bypass | 2-Controlled | 3-lmmediate Severity | Default | — 
Display Error Description — Cancel? Cancel _ . Code Option 





Indicator H1 is on 4 
Indicator H2 is on 
- Indicator H3 is on 
Indicator H4 is on 
Indicator H5 is on 
Indicator H6 is on 
Indicator H7 is on | 
Indicator H8 is on 
Indicator H9 is on 
All halt indicators . 
have been displayed 
Square root of nega- 
tive number asked 
Overflow during or 
divide | 
Division by zero 
attempted 
Zero, negative, or 
invalid array index 
Table out of sequence | 
No table data found ; 
Too much data ( 
for table 
Terminal errors in . 
RPG source 
Warning errors in 
RPG source 


Figure A-1 (Part 1 of 3). RPG II Halts and Operator Options 
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Error Description 





Operator Options 


Model 15 only 






Default 
Option 





No Primary or 
Secondary files 
opened 


Exceeded specified 
object core or in- 
sufficient core to 
compile 


Invalid call to RPG 
Halt routine 


End-of-file on 
demand file 


Attempting to ac- 
cess beyond extent 


Attempting to add 
duplicate key 


Attempting to add 
key in wrong order 


Key modified by 
record update or 
invalid record up- 
date operation 


1P forms alignment 


Record not found. 
Key not in index or 
record number too 
large. 


Invalid response 
to display 


Prepare for 
table output 


Record out of 
sequence 


File out of match- 
ing record sequence 





Figure A-1 (Part 2 of 3). RPG Il Halts and Operator Options 
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none 


none 


u 


Operator Options Model 15 only 
0-Continue | 1-Bypass | 2-Controlled| 3-Immediate Severity | Default 
Cancel” Cancel Code Option 





Halt 
Display 





Error Description 



















































Unidentified Record X Xx 
Multiple output to — xX X 
MFCM combined 

file 

RPG compiler error Xx 
Key too low or high xX x 
for volume.on line 

High key missing for X Xx 
volume on line 

Terminal errors dur- X 
ing auto report . 

Non-ASCII char- X X 
acters in BSCA 

record 

Invalid request to X X 
BSCA 

Connection lost on x Xx 
BSCA file 

Permanent error on x X 
BSCA 

Two consecutive Xx . Xx 






conversational 


replies made to 
BSCA file 





1On Model 15, halts J2-J9, U3-U9, LO and L2-L9 are not issued. Instead, halts J1 , U1, U2, and 1, when issued, include the file number. 
4 lf a halt occurs after the close routine is entered, the 2 option is no longer a valid operator option. The 3 option becomes the default. 


Figure A-1 (Part 3 of 3). RPG II Halts and Operator Options 


// LOAD $RPG,R1 


// FILE NAME-$SOURCE,UNIT-R1, RETAIN-S,TRACKS-10,PACK-SYSTEM' 


// FILE NAME-$WORK,UNIT-R1,RETAIN-S,TRACKS-10,PACK-SYSTEM' 


// RUN 





| 1 For Model 15 Systems, $SOURCE and $WORK are also supported on the 5445 or 3340 disk. 
Figure A-2. IBM—Supplied Library Procedure for Compiling an RPG Ii Source Program 
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Appendix B. RPG I! Sample Programs 


This appendix contains two complete RPG II sample pro- 
grams, SAMPL1 and SAMPL2, which should be run immedi- 
ately after system generation. If these programs execute 
successfully, your system has been generated properly. The 
following information is included for each of these sample 
programs: 


® Detailed description of the RPG II specifications (see 
Sample Program I and Sample Program 2). 


@ Procedures for loading, compiling, and executing the 
sample programs on System/3 Models 8, 10, and 12, 
complete with the compilation listing and execution 

- output (see System/3 Models 8, 10, and 12 RPG II 
Sample Programs). 


e@ Procedures for loading, compiling, and executing the 
sample programs on System/3 Model 15, complete with 
the compilation listing and execution output (see 
System/3 Model 15 RPG II Sample Programs). 


In addition to the sample programs SAMPL1 and SAMPL2, 
this appendix contains the RPG II specifications for and 
explanations of three additional RPG II] example programs 
(see Example Programs). | 


SAMPLE PROGRAM 1 


SAMPLI loads 100 records into an indexed disk file. The 
records are created in calculations by means of a program 
loop. SAMPLI should be followed by SAMPL2, which 
prints out the indexed file, verifying that it was properly 
loaded. Figure B-1 shows the completed specifications 
sheets for SAMPL1 for Models 10 and 12. Figure B-2 shows 
the specifications for Model 15. 


Control Card Specifications 


This card must be present in every job. It is the first card in 
the source deck. 


File Description Specifications 


These specifications (Figure B-1 or B-2) describe the files 
used in the program. The indexed output file, DISKOUT, 
will consist of 128-position records with a 6-position key 
field starting in the first record position. DISKOUT is a 
single volume file (01 in columns 68-69). A printer output 
file with a record length of 96 is also defined on the File 
Description Sheet. 


Input Specifications 


The single input file must be further described on the Input 
Specifications Sheet (Figure B-1 or B-2). 


Calculation Specifications 


The indexed file is loaded by means of a loop in calculations 
as follows: 


@ line 01: The result field, COUNT, is set to zero. 
e line 02: The result field, RECNBR, is set to zero. 


© line 03: REPEAT serves as a label for the loop in - 
calculations. 


@ line 04: COUNT is incremented by five. 
@ line 05: RECNBR is incremented by one. — 


@ line 06: If COUNT compares equal to 505, indicator 
02 turns on. 


® line 07: If COUNT is not equal to 505, the line on the 
Output Sheet (see the Output Sheet in Figure 
B-1 or B-2) which is identified by an EF in column 
15 is written on disk. Thus, COUNT becomes 
the output key field and RECNBR becomes a 
3-position output field containing the record 
number. 


@ line 08: The program loops back to the REPEAT label. 
The calculations in lines 4-7 are repeated until — 
COUNT compares equal to 505 (100 records 
__ have been written on the indexed file). 


‘@ line 09: When 100 records have been written, the LR 


indicator turns on. 


Printed in U.S.A, 


GX21-9092 


RPG CONTROL CARD AND FILE DESCRIPTION SPECIFICATIONS 


IBM International Business Machine Corporation 
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File Description Specification 


File Addition/Unordered 
Number of Tracks 
for Cylinder Overflow 


Extent Exit 
for DAM 


Length of Key Field or 
of Record Address Field 


Mode of Processing 
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PRINTER and DISKOUT, are described. 


in detail on the Output Sheet. Three total output lines 


are printed after end-o 


? 


The output files 


f-file has occurred on $SOURCE. 


The printer skips to line 04 before printing the first line 


and double-spaces after printing each of the first two lines. 


The RECNBR field, which now contains a value of 100, is 


inserted into the first output line in positions 29-31. After 


printing the last output line, the printer skips to line 01 of 


the following page. 


The disk record to be written by exception output in cal- 


culations is also described on the Output Sheet. 
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SAMPLE PROGRAM 2 


Sample Program 1 (SAMPL1) must be executed before 
Sample Program 2 (SAMPL2). SAMPL2 reads the indexed 
file created by SAMPL]I and prints out fields from each 
record read. Thus, SAMPL2 verifies that SAMPL1 loaded. 
the indexed file properly. The program specifications for 
SAMPL2 for all models are shown in Figure B-3. 


Control Card Specifications 


This card must be present in every job. It is the first card 
in the source deck. 


File Description Specifications 


These specifications describe the files used by SAMPL2 for 
input and output of data. 


The indexed file created by SAMPL1 is named DISKIN in 
this program. It is defined with an £ in column 17 so that 
the program will not end until end-of-file of the disk input 
file. Note that a different block length is given than was 
specified when the file was created. 


A printer file, PRINTER, is described for the printed out- 
put of SAMPL2. Since an overflow indicator is specified 
for the file, later operations can be conditioned on over- 
flow (see the Output Sheet in Figure B-3). 


Input Specifications 


The fields of interest in DISKIN are described in detail on 
the Input Sheet. A character zero in position one of the 
input records will turn on record identifying indicator 01. 


Calculation Specifications 


The field named COUNT is incremented by one on each 
program cycle to keep a running total of the records which 
have been read from DISKIN and printed out on PRINTER. 


Output Specifications 


Three different output lines are described for the printer 
file, PRINTER. 


The first printer line is a heading line which will be printed 
on line 4 of the first output page (conditioned by 1P) and 
each succeeding page (conditioned by OF in an OR relation- 
ship). The printer will double-space (2 in column 18) after 
the heading line is printed. Thus, each output page will 
have a heading consisting of three constant fields and a 

page field. Because the PAGE reserved word has been 

used, pages will automatically be numbered sequentially. 


For each record read from DISKIN (indicator 01 is on), 

a detail line consisting of three fields from each input 
record is written. These fields are reformatted so that the 
output line ends in position 25. 


The printer triple-spaces (3 in column 17) before the total 
line is printed. The total line is printed when end-of-file 
(LR is on) has occurred on DISKIN. The 3-position 
COUNT field which was incremented in calculations is 
followed by a statement in the total line indicating how 
many records were read and printed from DISKIN. If 
COUNT is equal to 100, SAMPL1 and SAMPL2 have 
executed successfully. 
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SYSTEM/3 MODELS 8, 10, AND 12 RPG Ii SAMPLE PROGRAMS 
Instructions on how to load, compile, and execute the RPG II sample programs for 
Models 8, 10, and 12 are shown in Figure B-4. Listings for SAMPL1 and SAMPL2 


are shown i in Figures B-5 through B-8. For a description of the programs, see Sample 
Program I and Sample Program 2 earlier in this appendix. 


Preparing to Run System/3 Model 8, 10, or 12 RPG II Sample Programs 


Mount the distribution disk cartridge on R1 and ready the disks. 
Set ADDRESS/DATA switches as required. 
Set the program load selector at FIXED DISK. 
Press PROGRAM LOAD. 
Does your system have DPF? - 
Yes | No 
EJ is displayed in the message :display 
unit when initial program loading is 


complete. Press program 1 HALT/ 
RESET. 





Enter these statements using the system input device (MFCU, 1442 Card Read 
Punch, 5471 Printer-Keyboard, or 3741): 


/] DATE 00/00/00 
// CALL $RPSPLR1 
/|-RUN 


The system begins reading OCL statements from the system input device. 
The system copies the sample programs and all procedures needed to compile and 
execute the sample programs to F1. 


Figure B-4, part 2 


Figure B-4 (Part ! of 4). Preparing to Run System/3 Model 8, 10, or 12 RPG Il Sample Programs 
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Figure B-4, part 1 


Compiling the SAMPL1 Program (Models 8, 10, or 12) 


Note: You must have 5 tracks available on R1 for the files you are using. If you 
do not have 5 tracks available on the unit specified in the FILE statements of the 
called procedure, you can change these FILE statements in the procedure, leaving 
the TRACKS and RETAIN parameters as they are. (See the appropriate SCP 
reference manual listed under Related Publications in the Preface.) 





Remove the distribution disk cartridge. 
Mount the tailored system disk cartridge on R1 and ready the disks. 
Enter these OCL statements using the system input device: 


/| DATE 00/00/00 

// CALL $RPSP1,F1 

/| RUN 

/[CALL $RPSP2,F1 

/] RUN 

/| CALL $RPSP3,F1 

/]RUN | 

|| CALL $RPSP4,F1 

/| RUN 7 
=> 


Ready the printer. 
Set ADDRESS/DATA switches to appropriate device if needed. 
Set the program toad selector at REMOVABLE DISK. 
. Press PROGRAM LOAD. 
Does your system have DPF? 


Yes Seen 


EJ is displayed in the message display unit 
when initial program loading is complete. 
Press program 1 HALT/RESET. 





The system begins reading OCL statements from the system input device. 


The SAMPL1 program is compiled. EJ is displayed in the message display unit when 
the SAMPL1 program is compiled. The SAMPL1 object program is on R1. 


3) Figure B-4, part 3 


Figure B-4 (Part 2 of 4). Preparing to Run System/3 Model 8, 10, or 12 RPG II Sample Programs 
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Figure B-4, part 2 





Note: See Figure B-5 for a printout of SAMPL1 source program. 





Compiling the SAMPL2 Program (Model 8, 10, or 12) 





Does your system have DPF? 


ee en one: 


Press program 1 Press console 
HALT/RESET. START. 


EJ is displayed in the message display unit when the SAMPL2 program is com- 
piled. The SAMPL2 object program is on R1. 


Note: See Figure B-6 for a printout of SAMPL2 source program. 


Executing the SAMPL1 Program (Model 8, 10, or 12) 


Does your system have DPF? 





Yes No 
Press program | _ ' Press console 
HALT/RESET. START. 


EJ is displayed in the message display unit when the SAMPL1 program has been 
executed and the output has been printed. 


Note: See Figure B-7 for a printout of SAMPLI program execution. 


Figure B-4, part 4 


Figure B-4 (Part 3 of 4). Preparing to Run System/3 Model 8, 10, or 12 RPG II Sample Programs 
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Figure B-4, part 3 


Executing the SAMPL2 Program (Model 8, 10, or 12) 


Does your system have DPF? 


Yes No 
Press program 1 Press console 
HALT/RESET. START. 


EJ is displayed in the message display unit when the SAMPL2 program has been 
executed and the output has been printed. The program is complete. 


Note: See Figure B-8 for a printout of SAMPL2 program execution. 


Figure B-4 (Part 4 of 4). Preparing to Run System/3 Model 8, 10, or 12 RPG II Sample Programs 
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Figure B-5 (Part 2 of 2). SAMPL1 Source Program Printout (Models 8, 10, and 12) 
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Figure B-6 (Part 2 of 2). SAMPL2 Source Program Printout (Models 8, 10, and 12) 


sRECCROS-100 


[Se eS. oo 


i eteatetetn 
NOx OOK, 


SAMPLE PROGRAM 1 FAS LOADED 1CO RECORDS IATC AN ENCEXEC FILE. 


KEYS ARE IN ASCENDING SEQUENCE 


STARTING AT CCCCCS5S AND IACREASIAG IN TACREMENTS CF 5S. 


SHCh TRAT IT WAS FRCFERLY LCACEC. 


SAMPLE PROGRAM 2 WILL PRINT FROM THE INDEXED FILE IC 


' Figure B-7. SAMPL1 Program Execution Printout (Models 8, 10, and 12) 
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IN, LABEL—DISKOLT gUNIT—R1 »PACK— SYSTEM RE TAIA~S 


PAGE 


DESCRIPTION 


KEY 


FNC PUN Ol DPR OSMUM SIN OP OR OMNU SIN OF D POKING TUDO POMINMO SMO MO POM TU 
PDS mh we et OG HE md ENS ON ENRON ON ON OE ON FFD ET ETD ETD EEE EEN TNT) ETD TT Pe TT Te 
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bem tL heed he Leen reper iret ey elrejvelrnlrelrerrey en el esrerrelreleirerre rupieirel eyrelrerelarrelverve Verve Verve velvelvey verry ry) 
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‘Figure B-8 (Part 1 of 2). SAMPL2 Program Execution Printout (Models 8, 10, and 12) 
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DESCRIPTION 
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100 RECORCS WERE REAC FROM THE INDEXEC FILE. 


Figure B-8 (Part 2 of 2). SAMPL2 Program Execution Printout (Models 8, 10, and 12) 
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Appendix B. RPG II Sample Programs 


SYSTEM/3 MODEL 15 RPG Il SAMPLE PROGRAMS 


Instructions on how to load, compile, and execute the RPG 
Il sample programs for Model 15 are shown in Figure B-9. 
Listings for SAMPL1 and SAMPL2 are shown in Figure B-10. 
For a description of the programs, see Sample Program I 

and Sample Program 2 earlier in this appendix. 
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Preparing to Run the System/3 Model 15 RPG II Sample Programs 


Ensure that you have a copy of the generated system on F1. 
Mount the distribution disk on drive 1 and ready the disk. 
Set the program load selector to FIXED DISK. 

oe the printer. 

Press PROGRAM LOAD. 


The system issues a prompt to allow you to enter a system date. Respond by 
entering either the system date or a null response. 


System date Null response 
| | 
Press PF12. Press PF12. 
Enter the system date in the Press ENTER. 
same format as that allowed 
on the DATE OCC or the A system date must be given 
DATE OCL statement. via OCL or OCC. 


After initial program load (IPL) has taken place, EJ is displayed on the CRT. 
Does your system support spooling? 
Yes : No 
Cancel spooling as follows: 
Press PF10. 
Key in CANCEL SPOOL. 


Press ENTER. 





Figure B-9, part 2 — 


Figure B-9 (Part 1 of 5). Running the System/3 Model 15 RPG II Sample Programs 
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4) Figure B-9, part 1 


Press PF12. 


Press ENTER. 
"7 


Enter the following OCL statements using the system input device selected during 
system generation unless you have altered the device assignment during IPL by 
entering an OCL statement or an OCC. The following statements copy the sample 
programs and procedures from the distribution pack to your system on F1: 


/[ LOG 1403 

|| HALT 

// CALL $RPSPL,R1 
// RUN 


The system displays EJ on the CRT when this job step is complete. 


Does your system use 5444 disk or 3340 disk? 


5444 — 3340 
Remove the distribution Copy the System Control Program 
cartridge from R1. (SCP) area from R1 5444 simulation 


area to a backup area if needed. | 
Mount the tailored system 
disk cartridge on R1 and Copy the tailored system to 
ready disk. | R1 5444 simulation area (area 
name — SYSTEM). 
Set the program load selector to REMOVABLE DISK. 
Press PROGRAM LOAD. 
Press PF12. 


Key in the system date in the format you have selected. 


oS Figure B-9, part 3 


Figure B-9 (Part 2 of 5). Running the System/3 Model 15 RPG II Sample Programs 


Figure B-9, part 2 


Does your system support spooling? 
Yes No 
Cancel spooling as follows: 
Press PF10. 
Key : CANCEL SPOOL. 


Press ENTER. 





Press PF10. 
Key in SET P1,12 (this sets the partition size to 12K). 


| 
Press ENTER. 


Compiling the SAMPL1 Program (Model 15) 


Note: You must have 20 tracks available for the files you are using. If you do not 

have 20 tracks available on the unit specified in the FILE statement of the called 

procedure, you may change these FILE statements in the procedure leaving TRACKS 

and RETAIN statements as they are. For information on how to change procedures, 
| see the appropriate SCP reference manual listed under Related Publications in 

the Preface. 


Press PF12. 
Press ENTER. 


Enter these OCL statements from the assigned input device: 


/| LOG 1403 

|| HALT 

// CALL $RPSP1,F1 
/| RUN 





Figure B-9, part 4 


Figure B-9 (Part 3 of 5). Running the System/3 Model 15 RPG II Sample Programs 


Appendix B. RPG II Sample Programs 297 


\} Figure B-9, part 3 


When this program stops with EJ dsiplayed on the CRT, the SAMPLI aaa program 
ison Rl. 


Press PFI 2. | | 3 
Press ENTER. 
Enter these OCL statements from the assigned input device: 


// CALL $RPSP2,F1 
// RUN 


When this program stops with EJ displayed on the CRT, the SAMPL2 object program 
ison RI. 


Executing the SAMPL1 Program | 


Note: If the sample programs are running on a 3340 system, the indexed file will be 
created on the main data area. The volume must be mounted on D1 and have a label 
of PIDOO1. 


Press PF12. 
Press ENTER. 
Enter these OCL statements from the assigned input device: 


/| CALL $RPSP3,F1 
// RUN 


a 
When this program stops with EJ displayed on the CRT, the SAMPL1 program will 
have loaded 100 records into a file. Keys are in ascending sequence starting at 

- 000005 and increased in increments of 5. 


Figure B-9, part 5 


Figure B-9 (Part 4 of 5). Running the System/3 Model 15 RPG Ii Sample Programs 
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Figure B-9, part 4 





Executing the SAMPL2 Program 


Press PF12. 
Press ENTER. 
Enter these OCL statements from the assigned input device: 


// CALL $RPSP4,F1 
/| RUN | 


When this program stops with EJ displayed on the CRT, the SAMPL2 program will 
print from the indexed file to show it was properly loaded. 


Figure B-9 (Part 5 of 5). Running the System/3 Model 15 RPG II Sample Programs 
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// CALL $RPSPF1,F1 
LOAD $RPG,yR1 


XX FILE NAME-$WORK,UNIT-R1», PACK-SYSTEM,RETAIN—S,» TRACKS—1C 


XX FILE NAME-$SOURCE,UNIT—R1,PACK-SYSTEM,RETAIN-S+ TRACKS-10 
XX COMPILE UNIT—-Fl»SOURCE-$SAMP1 






02 


XX RUN 
// RUN 
SYSTE¥/3 MODEL 15 12K 

C1Cl H cos 
OL OS FF RRA RR RR RR 
0103 F* | * 
C1C4 F¥* THIS PROGRAW — % 
0105 F* s. 3 * 
0106 F* 1. LOADS 160 RECURDS TO AN INDEXED FILE. * 
C107 F# * 
0108 F* 2. REACS CNE RECORD FROM FILE $SOURCE FCR * 
0109 F4 INPUT. THE FILE $SQURCE IS BLILT WHEN * 
O1LCS1F¥ SAMPLE PROGRAM SAMPL2 IS COMPILED BY * 
C1LCS2F% GIVING A RETAIN-T PARAMETER TO THE * 
01093F% FILE $SQURCE. * 
O10S4F* * 
CLIC F*¥ 3. CREATES THE OLTPUT CATA USING A * 
Oll1 F¥ LCOP IN THE CALCLLATICN SPECIFICATICAS. * 
0112 F* * 
C113 F¥ 4. LSES KEYS FRCM COCCO5 THRCUGF COOS5CC _ # 
0114 FX IN INCREMENTS GF 5. * 
0115 FH * 
Ql16 F* 5. SHOULD BE FOLLOWED BY SAMPLE PROGRAM 2 * 
Cl17 F# TC VERIFY THAT THE FILE WAS, PROPERLY % 
0118 F* LOACED. ahs * 
0119 Fe gee * 
C12C Fa a A RR ROR ACR RA A AO RH RR RR RAH HS SHE 

0001 0121 F$SOURCE IP F 256 256 DESK 

0002 0122 FLCISKOUT O- F 256 128 O6AI 1 O1SK 

CCG3 C123 FPRINTER O F 96 96 PRINTER 

0004 0201 I$SCURCE NS 01 

0005 0202 I 1 1 NCCATA 

cooé C3C1 CLO Z-ACCO COUNT 60 

0007 0302 CLO Z-ACDC RECNBR 30 

0008 C303 CLO REPEAT TAG 

0009 0304 CLO CCUNT ADD 5 | COUNT 

0010 0305 CLO RECNBR ADD 1 RECNBR 

0011 0306 CLC COUNT COMP 5C5 

0012 0307 CLO N02 — EXCPT 

0013 0308 CLO N02 GOTO REPEAT 

0014 03081CLC | SE TON LR 

C015 C3C9 CLR 


RECNBR sub 1 RECNBR 


Figure B-10 (Part 1 of 8). RPG Il Sample Program Printout (Model 15) 
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Cl. 


SAVPL1 


SAMPPL1 
SAPMPL1 
SAPMPLI 
SAVPLI 
SAMPLI 
SAWPLI 
SAPPL1 
SAMPL1 
SAPPL1 
SAMPL1 
SAMPLL 
SAVPL1 
SAPPL1 
SAPPL1 
SAMPLI 
SAVPLI 
SAMPL1 
SAPPL1 
SAPMPL1 
SAWMPLI 


SAMPLI 


SAMPLI 
SAMPL1 
SAWPL1 
SAWPLI 
SAMPLI 


SAMPL1 
SAPPLI 


SAMPLI 
SAMPL1 
SAMPL1 
SAMPLI 
SAMPL1 
SAPPL1 
SAMPLL 
SAMPLI 
SAPPL1 
SAMPLI 


0016 0401 CPRINTER T 204. LR. 

OC17? 0402 C 

0018 0403 C 

0019 0404 C RECNBRZ 
0020 C4cC5 G 

0021 0406 a 

0022 0408 C 7 2 LR 

0023 C4cs G 

0024 0410 C 

0025 0411 C 

CC26 0412 C 

0027 0413 C T LR 

0028 0414 C 

0029 C415 C 

0030 C416 G 

0031 0417 0 

0032 0501 OLISKOUT E NO2 

0033 0502 C : COUNT 
0034 c5C3 0 

0035 0504 0 RECNBR 


INDICATORS USED 
LR LC Cl C2. 


INCICATGRS UNREFERENCED 
01 


RG 305 


RG 314 UNREFERENCED FIELD NAMES 


STMT# NAVWE 
CCCs NOCATA 
FIELC NAMES USED 
STMT# NAME DEC LGTH CISP 
CCOE CCLAT C COE cccs 
0007 RECNBR 0O 003 ccc8 
LABELS USED 
STMT# NAME TYPE 


0008 REPEAT TAG 


STATEMENT NUMBER 
C032 


ERROR NUMBER 
RG 273 


ERROR SEVERITY 


RG 273 h 
RG 305 W 
RG 314 W FIELD, 


Figure B-10 (Part 2 of 8). RPG II Sample Program Printout (Model 15) 


SAMPL1 

"SAMPLE PROGRAM 1 KAS! SAMPL1 
*LCADED!® SAWVPLI 
SAWPL1 
"RECCRCS' SAMPL1 
‘INTO AN INDEXED FILE.! SAVPLI 
SAPPL1 

"KEYS ARE IN ASCENCING® SAVPL1 
"SEQUENCE STARTING AT® SAWMPLI1 
"OOCCCS AND INCREASING* SAVPL1 
"IN INCREMENTS CF 5.° SAMPL1 
SAMPLI 

‘SAMPLE PROGRAM 2 WILL! SAPPL1 
‘PRINT FROM TRE INCEXEC* SAPPL1 
"FILE TC StOW TREAT IT®* SAMPL1 
"WAS PROPERLY LCACEC.$ SAWPL1 
SAWPLI 

SAWPLI 

"RECCRC NUMBER' SAPPL1 
SAWPLI 


TEXT 


OLIPLT IADICATCRS IN CCL 23-31 MISSING CR ALL NECATIVE. 
INDICATOR ASSIGNED BLT NCT USED TO CCANCITICN OPERATICAS. 
TABLE OR ARRAY NAME DEFINED BLT NEVER USEC. 
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OL1C0O I THE TCTAL CGRE USEC BY SAMPL1 IS 5269 DECIMAL. 

OL101 I THE START CCATRCL ACDRESS CF THIS MCCULE IS 48C0. 

OL104 I TCTAL NUMBER OF LIBRARY SECTORS RECUIRED IS 13 
NAME~SAMPL1,PACK-SYSTEM,UNIT—~R1,RETAIN-T,LIBRARY-O 


OVERLAY LINKAGE EDITGR CORE USAGE MAP 


START CATEGORY NAME AND CODE LENGTH 
ACDRESS ENTRY KEXADECIMAL CECIMAL 
4CCO GLOBAL o7C@ 1992 
47C8 COMMON CCCS 9 
4800 0 SAMPL1 | 0100: £25€ 
49C0 Cc $#RTC2 0123 291 
4A23 C $#IPCR 004F 79 

4A24 $a0ACc9 

4A72 C $#OPCR 009C 156 
4A73 $2CB18 

4B0E Cc $#CONO OCES 223 
4BF7 Cc $#CON1 0005 § 
4BFC Cc $#CCK2 OOCE 14 
4COA z $$CSIP 0C27 39 
4031 2 $$ICUT OCSF 95 
4C90 2 $$SRBER 0082 130 
4D12 z $ESRUA CC26 ~ 38 
4038 2 $$SRTC CC1C 28 
4038 OMSRLC 

4D4S DMSRTC 

404C CMSRER 

4054 2 $$SRBI 0112 274 
4E €€ z $$SROF OO1C 28 
4E82 z $$SRMO CCA4 164 
4F26 2 $$SRSB C04E 7C 
4F6C 2 $$SRCI 0095 149 
4F91 DMSRPD 

4FBA CMSRRD 

5001 2 $¢$SRBP 0038 59 
503C 6 $$LPRT OCFC 240 
512C 92 $#OPEN OCéC 109 
5199 126 $HINPT OCcSsC 144 
51EB $90C25 

51F2 $aCC2C 

521F $acC5sS 

51E3 $acclce 

51E7 $9CC21 

§229 Zé $#IHCl CCCE 8 
5231 126 $HTCAL ocs2 82 
5283 29 $SHEXPT 002C 45 
52B0 ze $#CHC2 CCCC 12 
52BC 1Zzé $#IFLCO Oc1c 29 
5205 $a0CE8 

52D9 S2 $#CLCS OC2kR 43 
52E0 $9CEC2 

52Fl $aCEL3 

52F5 $Q0ELT 

5204 1C7 $H#LRCT OC76 118 
527A | 126 $# TOUT CCCB 1l 
5385 126 $#LRCF CC24 36 
53A9 71 $#CACF OC1C 29 
53Cé ze $#CHC3 cccc 12 
5302 126 t#RCID 0C4E 7¢ 
5409 $Q0C9A 

5418 126 $H#CFLC CC26 38 
.543E 1] $$PGRI 0C43 67 


Figure B-10 (Part 3 of 8). RPG II Sample Program Printout (Model 15) 
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CALL $RPSP2,F1 

LOAD $RPG,R1 

FILE NAME-SWCRK,UNIT—R1»PACK-SYSTEM,RETAIN-Sy TRACKS-—1C 
FILE NAME-$SCURCE ,UNIT—-R1,PACK-SYSTEM,RETAIN-S, TRACKS—1C 
COMPILE UNIT- BO adidas £SAMP2 

RUN 

RUN 


SYSTE¥/3 MCDEL 15 12K 


Figure B-10 (Part 4 of 8). RPG II Sample Program Printout (Model 15) 
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0101 K 008 SAMPL2 
C102 ESTAR eee eee eee Cee ee ee ee ee SAMPL2 
C1C3 Fe * SAPPL2 
0104 F# THIS PROGRAM - * SAMPL2 
01C5 F* * SAWPL2 
O1C6 F* 1. MUST BE PRECEDED BY SAMPLE PROGRAM 1 * SAPPL2 
C1C7 F# WHICH LCADS AN INCEXEC FILE. * SAPPL2 
0108 Fs * SAWPL2 
CLO9 F# 2. READS AN INCEXED FILE SEQUENTIALLY. * SAPPL2 
CLC F# * SAMPLZ 
Oll1 F¥ 3. USES A BLOCK LENGTH FCR CISK hHICH * SAMPL2 
O112 F¥ IS CIFFERENT FROM THAT USEC FOR * SAWPL2 
C113 Fx LCADING THE FILE IN SAMPLE FRCGRAP 1. * SAMPL2 
0114 F* x SAYPL2 
0115 F¥ 4. CCUNTS THE NUMBER CF RECORDS READ SC * SAMPL2 
C116 F* THAT THE USER CAN QUICKLY VERIFY THAT * SAPPL2 
O117 F# 1CO RECCRDS WERE LOACEC. S SAMPL2 
0118 F% x SAMPL2 
0119 FO PRR RRR ARRAS RARER RRR RES E SRSA RAREST EKER VISE SSS SAPPL2 
CCCl C12C FLISKIN IPE F 51Z2 128 OGAI 1 CISK | 01 SAMPL2 
0002 C121 FPRINTER O F 96 96 OF _PRINTER SAPPL2 
0003 0201 ICISKIN NS Cl 1 CO SAMPL2 
coo4 o202 1 | | 1 6 KEY SAMPL2 
coos c2c3 I @2 94 CESC SAMPLZ 
0006 0204 I 126 1280RECNBR SAMPL2 
0007 0301 C 01 CCUNT ADD 1 CGLNT 3C SAMPL2 
C008 C4C1 CPRINTER H 2C4_ 1P SAMPL2 
0009 0402 C OR OF SAMPL2 
0010 0403 C 5 "KEY! SANPL2 
0011 C4C4 C 22 "DESCRIPTICN® SAMPL2 
0012 O4C5 C 30 "PAGE? SAWPL2 
0013 0406 C PAGE Z 25 SAPMPL2 
0014 C4c7 C D1 01 SAPPL2 
0015 O4CE C KEY é SAWPL2 
0016 0409 C CESC 21 SANPL2 
0017 041¢C C RECNBRZ 25 SANPL2 
0018 0411 C T3 OLLR | SANPL2 
CO1S C412 C CCUAT 2 3 SAMPL2 
0020 C413 C 26 *RECCRCS WERE REAL FROM? SAMPL2 
0021 0414 6 44 "THE INDEXED FILE.' SAMPL2 
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INDICATORS USED 
LR CF 1P Ol 


FIELD NAMES USED 

STMT# NAME DEC LGTH CISP 
0013 PAGE 0 0C4 CCIC 
0004 KEY 006 cC05 
ccCOs5 DESC 013 CCl2 
O0O0O0€ RECNBR C CCc3 CC15 
0007 CCURAT 0 003 C018 


CVERLAY LINKAGE EDITOR CORE USAGE MAP 


START CATEGORY NAME AND CODE LENGTH 
ACCRESS ENTRY HEXADECIMAL DECIMAL 
4CCO GLOBAL 0402 1234 
44D2 COMMCK Oc1c 29 
4500 0 SAMPL2 01c¢c 256 
46CO. C $#RTO2 00C4 196 
46C4 c $HIPCR O04F 79 

4€CS $2 C603 

4713 0 $#OPCR 009C 156 
4714 $0722 

4TAF 0 $#CCNC 0005 5 
47B4 0 $#CCN1 0c2Cc 44 
47EO 0 $#CCN2 0001 1 
47E1 C $#CCN3 0017 23 
47F8 2 $$ISIP O04F 79 
4847 2 $$SRVO O0A4 164 
48EB 2 $$SROI 0095 149 
4910 OMSRPD 

4909 DMSRRC 

4980 2 $$SRIC 0003 211 
49D8 DMSRIF 

4A53 2 $$SRRC OOCA 202 
4B1D 2 $$SRRI 0048 72 
4B65 2 $$SRIC OCC 28 
4B65 DMSRLO 

4B76 DMSRTC 

4B79 DMSRER | 
4881 2 $$SREP 0038 59 
4BBC 6 $$LPRT OCFC 24 
4C AC 93 $S#OPEN o08D 141 
4039 126 S#INPT oosF =—ss«a: 59 
4D9A $0832 

4DAl $20839 

4DCE $0866 

4092 $9 C82A 

4096 $A CE2E 

4DD8 28 $#IHO1 ccos 8 
4DE0 126 $#IFLC 002C 44 
40F9 $2 C8FB 
4EOC 126 $#DCAL 0010 lé 
4E1C 93 $#CLOS OOF 31 
4E1F $a CSFT7 

4E2C $aCAC4 

4E3B 107 $#LRCT 0c3C 48 
4E6B 126 $#0CUT 0032 50 
4E90 126 $#TCUT occe - 11 
4EAB 12€ $#LROF 0024 36 
4ECC 71 $#OF OF 0024 36 
4EFO 28 $#CHC2 ococ 12 
4EFC 35 $#MFC) 0028 40 
4F24 126 $#RCIC 0C4C 76 
4F 5B $2 08A7 | 
4F70 126 $#CFLO 0026 38 


OL100 [| THE TCTAL CGRE USED BY SAMPL2 IS 3990 DECIMAL. 

OL10O1l I THE START CONTRCL ACORESS OF THIS MOOULE IS 4500. 

OLLO4 I TCTAL NUMBER OF LIBRARY SECTORS REQUIRED IS 11 
NAME-SAMPL 2, PACK-SYSTEM,UNI T-R1 eRETAIN-T, LIBRARY-D 

Figure B-10 (Part 5 of 8). RPG II Sample Program Printout (Model 15) 

304 


// CALL $RPSP3,Fl 

XX LOAD SAMPLI1,R1 

XX FILE NAME-$SOURCE »UNIT-R1_RETAIN-S» PACK-SYSTEM 

KX FILE NAME-DISKOUT sUNIT-R1»RETAIN-T » PACK-SY STEM» RECORDS-100 
// RUN 


SAMPLE PROGRAM 1 HAS LOADED 100 RECORDS INTO AN INDEXED FILE. 
KEYS ARE IN ASCENDING SEQUENCE STARTING AT 000005 AND INCREASING IN INCREMENTS OF 5. 
SAMPLE PROGRAM 2 WILL PRINT FROM THE INDEXED FILE TO SHOW THAT IT WAS PROPERLY LOADED. 


Figure B-10 (Part 6 of 8). RPG II Sample Program Printout (Model 15) 
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INygLABEL-D I SKOUT,UNI T—R1 »PACK-SYSTEMy RETAIN-S 


1 


PAGE 


DESCRIPTION 


KEY 


eA OU TASTIAOM DO PORMNCTIN OM DRHOANMTINOME DOGHAIMN 
wat pend pra md od peed rd red ad wd OS OOOO ONO AION OAT OA OO 


[odin dn Ma Aa de a Ae Ae An Ae Ae Bo An as Be Bo Qo Ae Ae Gs Ando An An dn Ae Ae Badan Ae An dod 
AP LS id dd ld ld gl ld Sy 
ATNODAMVDOMNAGDVDADGBDBSGANBDNAOUTIABDANANAaog 
TPSFSTPTLALZATTARLTTAALTTATVTTTALlASZTTTZ=Ez 
DIMDDDDIDDIDDIDIAIIDIADDIDDIIDDIADDIIDD}ADD 
2222222222 2222222222222 2222222222 


AQQO0 00059 00350000909000 0880850090008 45 . 


[ada da Ge de de dade 4° Ae Ba da 4a Se Be Ae Be Bo An Ae Ae Ae An An 0 Ao Ae An Be An an an ee 
OoOo00o000000 0000 0000000000000000000 
QNOUOOO OOVU OO VO OU OQOUOVOOVOUOUUOOU00O 
oe Moae dada anda dada ae Bede ae Ae An An do eS? Anes a2 Aa Ae Moe Ae Ba Bs Ae Aen aod 


NOMONOMNOBDNIDNDANAOMNODNONONOONONONOWOW 
DAANNMIAS SNDODME EY DOPRHOOWSGAHNNMOLT San 00 
O00 900900090 09 090 OC OO O Pat ed ht td ead rt rest OM ed ad pd ed ed 
COSCO SDOSODSOOSOO SOOO OSS SO OOoO0 900000000 
slelelelelseleleleleilelelelelelelelelelelelelseleleielelolealejele) 
COOKNMNOONGOODANMOSOAXMOOAAGCNVHDOD9O0N00O 


2 


PAGE 


DESCRIPTION 


KEY 


PTINDEDORONNMTNOEOHDOAINASTINOE OMOKHNMT INO 
PaYoataalaa lala Rome ee eer acct alrallataltaltaltslattaltattelesioltolt alt ante) 


[odo Ma Ao Bo da da de Aa Aa he ha do do Ba Ao Be Ae Aa Ae Go Aa Aa Ae Ae de Ao An Aaa Ao Ae Roe 
SU TRU LESTER IEE LSUTSe Tee IES [SUES LS TSE TESTE RTE CIES TED LSU TCU ING sep ee SELES Tee lpereeise pp bee ge lms 
NANDDHDOOHDOHDODONNODONONNDTAGvnOoOoNgAcsDoOnV 
ZATTELTTATAALETTLLSTTAZLLSATSTLTTTTTTS 
DDDIDDDDID}DD DD ADD DDD DDD D}DDDAD}DDDD]DD 
SA2ZLZSZZA2ZVSVZASLASSZASZASSAZSAZZSLZAzZSZZZA 


ANNAADOODADDODIAAAAHDBDAANABDOABAAAADAA 
LLL ALLL LL LLL LLL LALLA LLL LALLY 


UTES ISS ISE TUG LVCIUSTSUISEIUCIOUTES (SUING PET ea ISU res ;EU be Nei UjSalbabvelvel olesieuteciselouies| 
[ade de de de de A= Aes de de Ae 4s do 4a Ae Ae do Ae 2 An ae ado ae Ae Ao As haan Ao A Bad 


DOMOWMONONONONOMOMNDNOMOMOMONDMNOMNOWO 
EE DODRHROOSANNMMOASSONOOEEDODNANHOOMANNN 
Pl ted mt eI OOOO NON NAO AIA OIA I OF oO 09 
COOOSCOSOOSOSOOOSSOSOSSSOSOO OSS Go oGoo0 00900 
SOSOSKOSSSS SOS SS SOO OOOSOS Ooo oOoO09g 0000000 
SDOSCOOOSSCSOMOOOOD SOMO COOOOOCOAOOO0OSOG 


Figure B-10 (Part 7 of 8), RPG II Sample Program Printout (Model 15) 
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3 


PAGE 


DESCRIPTION 


KEY 


MQDDROKAALPWOOMS DHOSNMNSNOM OCHOA OD 
OOO REE MS PREM ODODO DDD DDOANAADRPARAAN 


[a dle dle Ae An Aa Ae Ba Ae As Ba Gn ae Ao Aa Ae Be Ao Ae An As Aa Ae Ain Ge An Ao Bo Ae Ae Ae An Ae a 
Sd ad id a 
ONANTMNCLOAGDETDAVD OVC GHsAAcTAN DaoOoOnNcC VA 
RESET TPTLTELLLATE RTL TSALASZETLALLAATZETZA=S 
DDDAIDDIDIIDIDIDDDIIDIDIIDDIDII}DIA}A}DD|DDIDD 
2222222222222 A22 22222227 2222222222 


ONDNO9O3590530HNG0099500909000N09850008338 
[a lo Mla As Me dada de Aa Bee As Bs Bs do ho Ae Ao Ae As Ando At Gn de Ae ae Gee Ae Ae As Be 4 
aqaq0qqgo0D9Nq0g00000000000909090900G0000000 
OVUVOOOU DOO UO OOUQOU OU OOU OU UUOUOOOHO 
OTE SCTE LESTER SS] SETCSISS [Se LCSTUS ISA TSU ESS LUST EC PSECU Lee TES OS LSE TRUTES TUS [US Tou LAS E IES pe) 
[a de Mla Ae Bn Be An A? Ba An Ma Ae Ae Ae An As Ae Ae Ba ap & ho Ae Ae Be Aa Be Ao Ae Ae an As Ae 


NONONONONONOMONONONONOMNOMNOQNOMONIN 
MAT TANOOMES DODBRHOOKANNMAS SUI O OE DODD 
AMA MMAMMAMAMAAMA Prosser rs 
jelelelelelelelelelelelolelelelwelelelolelelolololelelelelelelolele) 
DODOOODBDD OOD OOOOSOS SO go Ho00000 0000000 
MADNONAODOOMIOOVVVDODGORVWOSSGO0VSCORQ009 90 


4 


PAGE 


DESCRIPTION 


900500 RECORD NUMBER 100 


KEY 


THE INDEXED FILE. 


160 RECORDS WERE READ FROM 


Figure B-10 (Part 8 of 8). RPG II Sample Program Printout (Model 15) 
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Appendix B. RPG II Sample Programs 


EXAMPLE PROGRAMS 


This example contains specifications sheets for three com- 


plete RPG II programs: EXMPL1, EXMPL2, and EXMPL3. 


The programs are designed to be run in sequence and can 
be run on any IBM System/3 Disk System that has an 
MFCU. 


Example Program 1 


EXMPLI loads master records into an indexed file and 
creates a consecutive file of transactions. The transaction 
file will be processed against the master file in EXMPL2. 
EXMPL2 should follow EXMPL1. Figure B-11 shows the 
completed specifications sheets for EXMPL1. 


Control Card Specifications 


This card should be present in every job. It is the first card 
in the source deck. 


File Description Specifications 


These specifications describe the files in the program. The 
input card file, CARDIN, is read from the primary MFCU 
hopper. An E in column 17 indicates that the program 
will end when the last data record in the input file has been 
processed. The indexed output file, MASTER, will con- 
sist of 26-position records with a 5-position key field start- 
ing in the second record position. MASTER is a single 
volume file (01 in columns 68-69). A consecutive output 
file, TRANS, with a 10-position record length is also spec- 
ified on the File Description Sheet. TRANS is also a single 
volume file (01 in columns 68-69). A printer output file, 
PRINTER, with a record length of 78 is also defined on the 
File Description Sheet. 
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Input Specifications 


There are two types of records in the input card file, CARD- 
IN: master and transaction. A character M in position | of 
the input records will turn on record identifying indicator 
01, indicating a master record. A character A, B, or C in 
position 1 of the input records will turn on record identify- 
ing indicator 02, indicating a transaction record. No se- 
quence checking will occur for either type of record oe 
and AB in columns 15-16). 


_ Calculation Specifications 


The field named TOTMAS is incremented by one when 
record identifying indicator 01 is on. This maintains a 
running total of the master records which have been read 


_from CARDIN and transferred to disk. The field TOTTRN 


is incremented by one when record identifying indicator 
02 is on, maintaining a running total of the transaction 
records which have been read from CARDIN and trans- 
ferred to disk. 


Output-Format Specifications 


Four different output records are described in these specif- 
ications: one detail record for the master file (MASTER), 
one detail record for the transaction file (TRANS), and 
two total records for the printer file (PRINTER). 


The detail records for MASTER are conditioned by record 
identifying indicator 01. The detail records for TRANS 
are conditioned by record identifying indicator 02. 


Both total lines for PRINTER are printed when the last . 
record identifying indicator is turned on (LR in columns 
23-25). The first total line is for total transactions loaded. 
The printer skips to line 4 before the printing of the first 
total line and double spacing occurs before the printing of 
the second total line. The second total line is for total mas- | 
ters loaded. The printer skips to line 1 of the next page 
after it is printed. 


GX21-0002 
Printed in U.S.A, 


RPG CONTROL CARD AND FILE DESCRIPTION SPECIFICATIONS 


IBM International Business Machine Corporation 


75_76 77 78 79 80 


EXMPL i 


Program 
Identification 


12 
BLL ot 
roo OIL _ 


zi 
$3 
es 
es 


PLE DROGRAM te 


Program [= X al 


Programmer 





Control Card Specifications 


Refer to the specific System Reference Library manual for actual entries. 


51}52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73:74 


WO!tBAUOD |] Dd O Dd 
|__ dung sop permuics 3] | 
wung pias Sf | 

Of pees S| | 


Buppeud Fa 





File Description Specification 


















Number of Extents 


Number of Tracks 
for Cylinder Overflow 





File Addition/Unordered 





Core Index 
Entry 
2 63 
| 
fi 
a 
| 
a 
| 
| 
a 
E 
| 
re 
a 
| 
z 
| 
a 
a 
E 
La 
a 


Continuation Lines 
| 
li 
| 
: 
| 
| 
Ie 


Option 
5 56 
ar 
NA) 
(v2 
A] 
rv 
i | 
ly’ 
rat! 
Ny 
tat 
iW 
al 
| 
iS 
“1 
| 
he | 
| 
sf | 
fay 
vi 
NS 
vA 
® | 
sf 
i™ 
ty 
LoS | 
dsé! 
qs 
Hit 
i] 
| 


Extent Exit 
for DAM 





Label Exit 


Name of 





See eo : 
A DA  , S 
A 0 
2 
| | | tty | tT Ove ey 8 
a] | | fee ieee es 
a ol ee 
ee ee 
ei tt tt tt Whal [TS SO Aint —| ma. 


AAviviviy ly] 





PIRTATATUAT AIA TACD 





Milehaayle 











SOIC Te LL Ta a Je 
i) 5 4) 
ee ot tS PE WER tT ae ts 


or Additional Area 





Type of File 
Organization 





of Record Address Field 
Record Address Type 


Length of Key Field or 








Mode of Processing 





File Format 





File Designation 
End of File 





Filename 


oe ee eS 2 
- Se ISEISEISEDSESE SESE SEIRIESESE SIE I8 


: cs ee as a ee ee reas = 
Lhe . “<Tate[e[olel[s[o[alofy om 
Tefeflefefeleleleoj-ft ala 








Li 





Figure B-11 (Part 1 of 3). Specifications for EXMPL1 
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GX21-9094 


Printed in U.S.A, 








INPUT SPECIFICATIONS 


RPG 





IBM Ingermational Business Machine Corporstion 





|| 

Ai Cs es Kae A eae (me See nea ea SS Gn So re 
pee Sl eae ee are ee ae 
CS Ba Bak FS ae aa Ma Sa aa J ee 








75 76 77 78 79 80 


EX Me |e. 





5 E Fa Cg a FE Fa FF Ds SP ee 

3 8 Poe SE EP pt tt ~ 

A 35 = 2 Aa AEA Ea Pe ie ae SR (Ke ne He a 
e3 i= 4 8 a a FES a ey a a Ga a ee 
ss a 8 3 
g 3 uoysej34 puosay platy = 





splay Buywyeyd 
40 spyaig Busyozeyy 





1 2 


Page me of 





(671-11) (9499 [oUED 














Field Name 





SUOIISOY JBWI9IQ 





Field Location 





Record Identification Codes 


Program EXAN OLE DROGRAM He | joo, pe tT Card Electro Number 
Instruction Fruen [| [| | | | ft Tl 


” 
2 
o 
{Ee 
- @ 
= 
= 
© 
Ww 
on 
77) 
= 
o 
= 
<t 
J 
> 
Oo 
al 
= @ 
O 
Oo 
a 
x 


je 
3 
€ 
Ei 
z 
° 
3 
7) 
= 
a 
oe) 
8 
< 
2 
es 
a) 
$és 
£é& 
az 
at 





eee ge ee ee 
fefzet fT eet Tt ed etivioet T  8 


Form GX21-9093 
Printed in U.S.A. 


75 76 77 78 79 80 
EXPL [1 


12 
3 01 


IBM International Business Machine Corporation 
¢ rf 


Identification 


Program 


mA 


» 


Page 
Resutting 
Indicators 


Uv 
2 
rs 
+ 

2 

g 
ec 


Arithmetic 


Comments 


Operation 





11 (Part 2 of 3). Specifications for EXMPL1 


Figure B- 
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GX21.9090 


Printed in U.S.A. 


SPECIFICATIONS 


OUTPUT 


RPG 


IBM (International Business Machine Corporation 


2 


1 


Page oe eae 


75 76 77 78 79 80 


EXIMPL 


— 


Program 


Punching 


Identification 


Instruction 


Programmer 


X = Remove 


[en 


cS 


Zero Balance: 
to Print 


Commas 





Output Indicators 





Plus Sign 


Y = Date 


| No Sign 


Field Edit 


Z = Zero 
Suppress 


Se 
ee ae ae a ee ee ee eo ae 3 
em A sO SL SE 2 a a a 


Constant or Edit Word 




















4/45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 


4 


4/1/8/d 


39 }40 414 42 43 


wewvowe |f 1 


sapog 11P3 


g 
~ 
” 
Ss 
a 


Field Name 





31432 33 34 35 





Figure B-11 (Part 3 of 3). Specifications for EXMPL1 
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RPG II Sample Programs 


ix B 


Append 


Example Program 2 


EXMPL2 must be preceded by EXMPL1. EXMPL2 reads 
from the transaction file, TRANS, created by EXMPL1 
and accumulates totals for A, B, and C records. EXMPL2 
also retrieves matching master records for transaction 
records and prints an error message if a matching master 
record is not found. Figure B-12 shows the completed 
specifications sheets for EXMPL2. 


Control Card Specifications 


This card must be present in every job. It is the first card 
in the source deck. 


File Description Specifications 


The input file for EXMPL2, TRANS (the output transaction 
file for EXMPL1), is read from disk. An E in column 17 
indicates that the program will end when the last data rec- 
ord in the input file has been processed. TRANS is a single 
volume file (01 in columns 68-69). The output file, PRINT- 
ER, will consist of 72-position records. An overflow indi- 
cator (OF in columns 33-34) is being used to condition 
printing of records in the file. The indexed file, MASTER, 


is described as a chained update file to be processed by keys. 


It consists of 26-position records with a 5-position key 
field starting in the second record position. It is a single 
volume file on disk. 


Input Specifications 


There are two types of files specified on the Input Sheet: 
transaction and master. A character A, B, or C in position 
1 of the input records will turn on record identifying indi- 
cator 01, 02, or 03, indicating a transaction record type A, 
B, or C respectively. A character M in position 1 of the up- 
date records will turn on record identifying indicator 04, 
indicating an update record. No sequence checking will 
occur for either type (AA and AB in columns 15-16). 
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Calculation Specifications 


When indicator 01, 02, or 03 is on, two operations will 
occur: 


1. A matching master record is retrieved for a transac- | 
tion record (lines 01, 02, and 03 on the Calculation 
Sheet). 


2. The AMT field of the transaction cards is added to” 
the appropriate value (VALUEA, VALUEB, or 
VALUEC) on the master card depending on the type 
of card (record identifying indicator 01, 02, or 03). 


If no matching record is found, indicator 10 will be turned 
on. 


Output Specifications 


Eight printer output lines are described in these specifica- 
tions. Four header lines conditioned by the first page in- 
dicator (1P in columns 23-25) or an overflow indicator 
(OF in columns 23-25) are printed. They will be printed 
at the top of each page of the listing. 


Four detail lines are also printed. A detail line is printed 
for each transaction record with no matching master rec- 
ord (line 20 on page 04 and lines 01-03 on page 05). For 
each type of transaction record, A, B, or C, the accumula- 
tive value is printed (detail lines conditioned by indicators 
01, 02, or 03, and not 10). These detail lines are single 
spaced. 


A detail record is written on disk for the indexed update 
file, MASTER. It is conditioned by two indicators — the 
record identifying indicator 04 and not 10 which is the 
record identifying indicator for no matching master record, 
a match between the master and transaction record. 


Printed in U.3.A. 
76 76 77 78 79 80 
Number of Extents 


for Cylinder Overflow 


GX21-9082 


File Addition/Unordered 
Number of Tracks 
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Extent Exit 
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Refer to the specific System Reference Library manual for actual entries. 
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File Format 


File Designation 
End of File 
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starting in the second record positon. A printer output file 
PRINTER, with a record length of 78 is also defined on the 


The input file for EXMPL3, MASTER, is an indexed single 
File Description Sheet. 


volume file (I in column 32 and 01 in columns 68-69). An 
E in column 17 indicates that the program will end when 
the last data record in the input file has been processed. It 
consists of 26-position records with a 5-position key field 


File Description Specifications 


13 shows the com- 


- value C. If the result 


EXMPL3 must be preceded by EXMPL2. EXMPL3 reads 
from the indexed file, MASTER, and performs the follow- 


is negative a message is printed. Figure B 
pleted specifications sheets for EXMPL3. 
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total line is also printed when the last record indicator, LR, 


conditioned by the first page indicator (1P) or an overflow 
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In these specifications, four header lines are printed, each 
indicator (OF). 
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CCE 
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* The numbers above the blocks 1* 
correspond to explanatory notes © Open all files 

on the following pages. 
e@ Load pre-execution time 


tables and arrays 
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Perform first page 
(1P) output 


== 


e Perform heading, 
detail and fetched 
overflow output 

e@ Set overflow indica- 
tor on if overflow 

line has been reached 





Set off overflow indicators 








if performed last cycle, leave 


on if fetched during detail 


calculations of previous cycle 


or during detail output of 
current cycle 
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halt 
indicator 
on 













Halt (operator option) 
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Set off record identifying 
indicators and 1P, L1-L9, 
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End 
of job 
requested 







Last record 
indicator 
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No 
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Control 
break 


26 


Set on LR, L1-L9 






First 
program cycle or 
first control 

break 






















e Perform LO-L9 and LR 
calculations, also EXCPT, 
CHAIN, DSPLY, and 
READ, if requested. 


e@ Turn on or off resulting 
indicators 


Set overflow indicator on 
if overflow line has been 

reached as a result of ex- 
ception output. 


e Perform fetch overflow 
if required by exception 
output. 


Perform LO-L9 and 
LR output 


e@ Set overfiow indica- 
tor on if overflow 
line has been reached 









e@ Perform fetch over- 
flow if required 
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Halt (operator option) 


End 
of job 
requested 


(=) Yes 


Controlled 
cancel 



















35 


Perform LR 
calculation 


36 
Perform 
LR output 


Perform table 
and array output 


38 
39 


END OF JOB 




















Read from file just processed os 


indicator 






e At start, read one record 
from each file except chai 
and demand 







Records with look-ahead 
fields are identified only, 
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Valid 
forced 
file 


Overflow 
indicator 


on 
Yes 









Record 
identified and: 
record type 
sequence 
correct 


10 
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Set MR indicator on or off 


Turn field indicator on or off 









Choose highest priority 
record by matching 
field content 










End 
of job 


conditions Make data available from last 


record selected 













Look-ahead files are read 





Any 
matching 
file out of 
sequence 







multiple 
input files 
defined 






Perform detail calculations, 
also EXCPT, CHAIN, 
DSPLY, READ, and FORCE, 
if requested 
















Sequence error Halt 


(operator option) e Set resulting indicators on or 


off 


Set overflow indicator on if 
overflow line has been reached 
as a result of exception output 
e Perform fetch overflow if 

required by exception output 






13 Matching 


fields 
specified 












14 


Turn on record 
identifying indicator 


For each record that is processed, the RPG II object pro- 
gram goes through the same general cycle of operations. 
After a record is read, there are two different instances in 
time when calculation operations are performed, and 
records are written out. These instances in time are called 
total time and detail time. During total time, all total cal- 
culation operations (those conditioned by control level 
indicators in columns 7-8 of the Calculation Sheet) and all 
total output operations (those conditioned by control level 
indicators) are done. During detail time, all detail calcula- 
tion operations (those not conditioned by control level 
indicators in columns 7-8) and all detail output operations 
are done. Total time includes steps 18 and 19 of the 

RPG II object program cycle; detail time includes steps 25 
and 3 of the cycle. 


Total calculations are performed before the information on 
the record selected for processing is made available. Detail 
calculations are performed after the information on the 
selected record is made available. The following discussion 
describes this concept in more detail. 


Whenever a record is read, a check is made to determine 

if information in a control field (when one has been speci- 
fied) is different from the control field information on the 
previous record. A change in the control field information 
indicates that all records from a particular control group 
have been read, and a new group is starting. When all 
records from a group have been read (indicated by control 
level indicators being turned on), operations may be done 
using information accumulated from all records in that 
group. ‘At this time, all calculations conditioned by control 
level indicators in columns 7-8 are done. Total output 
operations are performed immediately after all total calcula- 
tion operations are completed. Remember that information 
on the record read at the beginning of the program cycle is 
not used in these operations; only information from records 
in the previous control group is used. 


Detail calculations (all calculations not conditioned by 
control level indicators in columns 7-8) occur after the 
information on the selected record has been made available. 
Detail calculations are used to calculate values needed each 
time a record is processed. They are also used to calculate 
totals for the current control group (if control fields are 
specified). Immediately after detail calculation operations 
are completed, detail output operations are performed. 


The specific steps taken in the program cycle are shown in 
Figure C-1. The item numbers in the following description 
refer to the numbers in the figure. A program cycle begins 
with step 3 and continues through step 25. 
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SA. 


All data files to be used by the RPG II object pro- 
gram are opened; that is, they are prepared to be 
processed by the object program. Pre-execution 
time tables and arrays are loaded before the first 
program cycle. 


The object program performs all output conditioned 
by the 1P indicator. This output is performed only 
once per job and does not fall within the program 
cycle (steps 3 through 25). 


The object program performs all specified heading 
and detail output operations whose conditions are 
satisfied. This includes specifications that are con- | 
ditioned by the overflow indicator if the overflow 
routine has been fetched. 


The object program performs a test to determine if 
the overflow line was encountered during detail cal- 
culations in the previous cycle or when heading and 
detail records were written in the current cycle. If it 
was, the overflow indicator turns on. Otherwise, the 
indicator turns off, unless the overflow routine was 
fetched in step 3. 


The object program tests the halt indicators, If the 


halt indicators are off, the program branches to 
step 6. 


The execution of the program is stopped once for 
each halt indicator that ison. The operator selects 
one of three options: continue, controlled cancel, 
or immediate cancel. See Appendix A for an explan- 
ation of operator options. 


If the operator desires to continue the job, the 


_ program returns to step 5 to test for other halt indi- 


cators. If the operator selects one of the cancel 
options, a branch is taken to step 34. 


All record identifying indicators and indicators 1P, 
L1-L9, and H1-H9 are turned off. 


The program tests to see if the LR indicator is on. 
If it is, the program branches to step 26. 


The program reads (and translates, if necessary), the 
next input record. At the beginning of processing, 
one record from each input file (except forced files 
and demand files) is read. If the file has look-ahead 
fields, it is read only on the first cycle. After that, 
records with look-ahead fields are identified only. 


10. 


11. 


ee 


13, 


14. 


15. 


16. 


We 


18. 


. The program performs a test to determine if the 


record is an end-of-file record. If an end-of-file 
condition has occurred, the program branches to 
step 11. 


If an end of file has not occurred, the program per- 
forms a test to determine if the input records are in 


the sequence specified for them on the Input Sheet. 19, 


If the sequence is incorrect, the program branches to - 
step 32. The program also branches to step 32 if 
non-sequential input records are specified ane the 
record cannot be identified. 


If end-of-job conditions have been met, a branch is 
taken to step 26. All files for which an E has been 
specified in column 17 of the File Description Sheet 
must be at end of file. 


20. 


When multiple input files are used, it is necessary to 
select the next record to process. A branch to 
step 27 is made. 


If there is only one input file, no record selection is 
needed. A test is made to determine if sequence 
checking has been requested. If so, a branch is taken 
to step 30. 


22. 


The record identifying indicator specified for the 
current record type turns on. Data from the current 
record type is not available for processing until 

step 24. 


23. 


If the record contains control fields, the object pro- 
gram performs a test to determine if a control break 


has occurred (the contents of the control field are _ 4 


not equal to the contents of a previously stored field). 
If a control break has not occurred or control fields 
are not specified, the program branches to step 17. 


25% 


If a control break has occurred, the control level 
indicator reflecting the condition is turned on. All 
lower level indicators are also turned on. 


If this is the first program cycle or first control 
break, the program bypasses all total calculation 
and output operations and branches to step 20. 


All calculations conditioned by control level indicators 
(columns 7-8 of calculation specifications) are per- 
formed and resulting indicators are turned on or off 

as specified. If the LR indicator is on, calculations 


2h. 


conditioned by LR are done after other total calcula- 
tions. File translation, if specified, is done for excep- 
tion output, chain, and read operations. Fetch over- 
flow is performed if it is required by exception out- 
put. If the overflow line has been reached because of 
exception output, the overflow indicator is turned on. 


All total output that is not conditioned by an over- 
flow indicator is performed. The program performs 
a test to determine if an overflow condition has 
occurred. If an overflow condition has occurred at 
any time during this cycle, the overflow indicator 
turns on. If the LR indicator is on, output condi- 
tioned by LR is done after other total output. File 
translation, if specified, is done for total output. 
Fetch overflow is performed if required. 


The program performs a test to determine if the 
last record indicator (LR) is on. If the indicator 
is on, the program branches to step 37. 


The program performs a test to determine if any 
overflow indicators are on. If no overflow indicators 
are on, the program branches to step 23. 


All output operations conditioned by a positive (no 
N preceding the indicator) overflow indicator are 
performed. File translation, if specified, is done for 
overflow output. 


The MR indicator turns on if this is a multifile job 
and the record to be processed is a matching record. 
Otherwise, the MR indicator turns off. 


Field indicators are turned on or off as specified. 
Data from the last record read and from specified 
look ahead fields is made available for processing. 


Any calculations not conditioned by control level 
indicators (columns 7-8 of the calculation specifica- 
tions) are performed, and resulting indicators are 
turned on or off as specified. File translation, if 
specified, is done for exception output, chain, and 
read operations. Fetch overflow is performed if it 
is required by exception output. If the overflow 
line has been reached because of exception output, 
the overflow indicator is turned on. Processing con- 
tinues with step 3. 
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26. 


27, 


28. 


22: 


30. 


31. 
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The last record indicator (LR) and all control level 
indicators (L1-L9) are turned on and processing 
continues with step 18. 


If a file has been forced, the next record in that file 
is selected for processing and a branch is taken to 


step 14. 


If a record with no matching fields is found in a 
normal input file which is not at end of file, it is 
selected. 


When matching fields are specified, the normal file 
with the highest priority matching record field is 
selected. If two or more files have the equal and 
highest priority matching record fields, the highest 
priority file of those is selected. (The primary file 
has the highest file priority, the first specified 
secondary file is next, and so forth.) 


The match field value is compared to the match field 
value of the last record. If it is in sequence, the 
record is accepted and processing continues with 
step 14. If the record is out of sequence, processing 
goes to step 31. 


The execution of the program is stopped because a 
file with matching fields is out of sequence. The 
operator’s option, indicated in step 33, is to bypass 
(read the next record from the same file) or cancel 
the job. 


32; 


33. 


34. 


33% 


36. 


Sti 


38. 


39. 


The execution of the program is stopped because of 
a record type sequence error or an unidentified 
record. 


Step 33 tests the operator’s decision either to bypass 
the record which causes the error condition (branch 
to step 4) or to cancel the job. 


If the operator elects to terminate the job by means 
of a controlled cancel, steps 35 through 39 are per- 
formed. If the operator selects an immediate cancel, 
the job is terminated. 


All operations conditioned by the LR indicator are 
done. 


Same as 35. 

The program writes out any tables or arrays for 
which a To Filename is specified on the Extension 
Sheet. Output tables or arrays are translated, if 


necessary. 


All files used by the program are closed (final 
termination functions are done). 


End of job occurs. 
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Type of Function of Operation Operation] , oe 
. —* = 

Operation Code oe 86 s2 

(columns | ¢& ee 32 

28-32) $5 25 ae 

On c= 












ADD 
Z-ADD 


Add Factor 2 to Factor 1. 

Clear Result Field and add Factor 2. 

Subtract Factor 2 from Factor 1. 

Clear Result Field and subtract Factor 2. 

Multiply Factor 1 by Factor 2. 

Divide Factor 1 by Factor 2. 

Move remainder of preceding division to a Result Field. 
Sum elements of an array and put sum in Result Field. 
Derive the square root of Factor 2. ; 


Arithmetic 
Operations 


Z2-SUB 
MULT 
DIV 
MVR 
XFOO 
SORT 


MOVE 
MOVEA 


4 


op) : 
ive] 





Move Move Factor 2 into Result Field, right justified. 
Move Factor 2 into Result Field, left justified. 


Operation Move Factor 2 into Result Field, left justified. 


= 
oO 
< 
m 
rm 








Move Move zone from low-order position of Factor 2 to MLLZO. 

Zone low-order position of Result Field. 

Operation Move zone from high-order position of alpRameric MHHZ 
Factor 2 to high-order of alphameric Result Field. 


Move zone from low-order position of Factor 2 to high- MLHZ 
order position of alphameric Result Field. 
Move zone from high-order position of alphameric 


Factor 2 to low-order position of Result Field. 


Compare Factor 1 to Factor 2. COMP 


|ofo} Ri rR 
Identify the zone in the leftmost position of an TESTZ 
alphameric Result Field. re hs 
| 0 | 
| 0 | 
| | 
| O | 
0 | 


itt a a 









Compare 
and Zone 
Testing 
Operations 





















Set on specified bits. 


Set off specified bits. BITOF 


Test specified bits. 


Bit 
Operations 


Setting 
Indicators 


Branching Branch to another RPG II calculation specification line. 
Within Identify the name in Factor 1 as a destination label 
RPG Il to which GOTO may branch. 


Branching Branch to user-written Assembler subroutine EXIT fe 












Set one, two, or three specific indicators on. 
Set one, two, or three specific indicators off. 


”n 
m 
-+ 
12) 
mu 














External 
: Subroutines 


Lookup Table Lookup. 

Operations Array Lookup. 

Subroutine Beginning of the subroutine. 
End of the subroutine. : 
Call to execute the subroutine. 


to 
Transfer data to user-written Assembler subroutine. 
















r 
co) 
A 
Cc 
ae) 








O - Optional * Columns 7-8 must have an SR entry for all subroutine lines. 
R - Required ** See Columns 54-59 in chapter 8 for more information. 
B - Blank *** The control level entry can be given for any operation code if 


it is an AN or OR line (see Columns 7-8, chapter 8). 


Table D-1 (Part 1 of 2). Operation Codes 
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Type of 
Operation 


Program 
Control 


Function of Operation 


. Forcing record to be read next. 


A field is printed on the printer-keyboard and/or data 
is entered via the printer-keyboard into a field. 


O - Optional 
R - Required 
B - Blank 


Table D-1 (Part 2 of 2). 


_ Indicator 
Field Indicators 
01-99 

Zero and Blank 
Plus 
Minus 


H1 through H9 


Operation 
Code 
(columns 
28-32) 


Control 
Level *** 


| Inatcators | 
Factor 2 


*Columns 7-8 must have an SR entry for all subroutine lines. 


**See Columns 54-59 in chapter 8 for more information. 
***The control level entry can be given for any operation code if 


it is an AN or OR line (see Columns 7-8, chapter 8). 


Operation Codes 


Where Specified 


Input form 


Input form 
Calculation form 


Internal 


LO 
(Level Zero) 


Control Level 
Indicators 
L1 through L9 


oma 
(Matching) 


Internal 


Input form 
Columns 59-60 


Internal 


Where Used 


Indicator (calc.), 
Output Indicators 


Indicator (calc.), 
Output 


Contro! Level (calc.), 
Output Indicators 


Contro! Level (calc.), 
Output Indicators 


Control Level (calc.), 
Indicators (calc.), 
Output Indicators 


Indicators (calc.), 
Output Indicators 
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Turned On 


By Blank or Zero in 
specified field. 

By Plus in specified 
field. 

By Minus in specified 
field. 


Whenever the specified 
field status or record 
identification condi- 
tion-is satisfied. 


After processing the 
last record of the last 
file (see column 17 of 
File Descr.). 


At beginning of the 
program. 


When the value ina 
control field changes. 
All indicators of the 
lower levels are also 
turned on. 


If the matching-field 
contents of the record 
of asecondary file 
match the matching- 
field contents of a 
record in the primary 
file. 





Decimal 
Position 
Resulting 
Indicators 





Before this field 
status is to be 
tested the next 
time. 


Internal, at the end 
of the detail cycle. 


At the beginning of 
processing. (Cannot be 
SETOF) 


Note 2 


Cannot be 
SETON or 


Is never turned off 
by RPG. 


At end of follow- 
ing detail cycle. 


When all total cal- 
culations and output 
are completed for 
the last record of 
the matching group. 


OA, OB, OC, OD, 
OE, OF, OG, OV 


File Description 
form 


Record Identifying 
Indicator 01-99 


Input form 
Columns 19-20 


Resulting Calculation form 
Indicators 01-99 
Plus 
Minus 
Zero 
Compare operation 
High 
Low 
Equal 
Look-up operation Calculation form 
High 
Low 
Equal 
TESTZ operation 
High 
Low 


Equal 


Chain operation 


1P (First Page) Internal 


Indicators (calc.), 
Output Indicators 


Indicators (calc.), 
Output Indicators 
Field Record 
Relation 
Indicators (calc.), 
Output Indicators 


Indicators (calc.) 
Output indicators 


Output Indicators 


t 


If the destination of a 
space, skip, or print 
operation falls within 


the forms overflow area. 


When specified record 
has been read and be- 
fore total calculations 
are executed, 


By a positive balance 
in field, by a negative 
balance in field, by 

zero balance in field. 


Ww 


If Factor 1 > Factor 2. 
If Factor 1 < Factor 2. 
If Factor 1 = Factor 2. 


If table > Factor 1. 
If table <Factor 1. 
lf table = Factor 1. 


If.a C zone or & is present. 


If a D zone or minus (-) 
is present. 

If a C or D zone is not 
present. 

By ano record found 
condition. 


At beginning of proces-- 
sing before any input 
records are read. 


At the end of the 
detail cycle. 


Before the next 
record is read 
during the next 
processing cycle. 


The next time a 
calculation is per- 
formed for which 
the program speci- 
fies the indicator as 
a resulting indicator 
and the specified 
condition is not 
satisfied. 


By a record 
found condition. 


Before the first 
detail record is 
read. 


Turning indicators on or off can also be accomplished by using SETON and SETOF operation codes. 
All control level indicators (1-9) are also turned on when LR is turned on. 
The overflow indicator remains on during the following detail calculations and output cycles. 
This indicator is used to condition printing of the first page of the report. 





Note: When a program is doing multiple reads from one or several demand files during the same RPG II cycle, the record 


identifying indicators assigned to the file(s) remain on throughout the cycle if the previo 


executed successfully. 


us READ operations were 


When chaining to one or more files during the same RPG II cycle, record identifying indicators assigned to the chained 
file(s) remain on throughout the cycle if the previous operations were executed successfully. a 


Table D-2 (Part 2 of 2). Summary of Program Indicators 
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O£E 


siojeoipuy PIA “E-C F198 L 


File 
Description input Specifications Calculation Specifications 
Specifications 


1 Record 1 Field Control 


Overflow | File Identifying | Control Record |. Field Level Conditioning | Resulting 
Indicator | Conditioning Indicator Relation | Indicator | Indicator | Indicator Indicator 
(33-34) (71-72) (19-20) (63-64) (65-70) 


-Note: X denotes the indicators that may be used. 


Not valid on look-ahead fields. 


When field named is not a match field or a control field. 


Only for detail or heading lines. 


Cannot condition an exception line, but may condition fields within the exception record. 


Not valid for table input files. 


Output- 
Format 
Specifications 


Conditioning 
indicator 
(23-31) 





Characters grouped by equal zones 


96 Column P| Character | 96 Column Card Code__| 


Blank 
¢ 


GROUP 3 

4 

@ 
GROUP 4 * (quote). 


GROUP 5 


GROUP 6 
GROUP 7 


GROUP 8 








No punches 
B-A-8-2 
B-A-8-2-1 
B-A-8-4 
B-A-8-4-1 
B-A-8-4-2 
B-A-8-4-2-1 









PE : 


, (comma) 














ard 1 
B-A-2 
B-A-2-1 
B-A-4 
B-A-4-1 
B-A-4-2 
B-A-4-2-1 
B-A-8 
B-A-8-1 












N<XxS<cAVMDONOVOZSrFAc™~'|/-“TLANTMVPAWYS 






COON OO LAWN OC 


Table D-4. Character Grouping by Zone and Digit 


GROUP 10 
GROUP 13 


Characters grouped by equal digits 


| | Character__| 96 Cotumn Card Code _| 


oo No punches 
A-8-2 
B-A 


GROUP 2 


GROUP 3 
GROUP 6 
GROUP 8 


GROUP 9 


GROUP 12 comma) 


t : BECEEE CET 7 


GROUP 14 
GROUP 16 
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B-A-8-4-2-1 
B-8-4-2-1 
A-8-4-2-1 
8-4-2-1 


2~ ja nyu + 
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Hexadecimal 
Equivalent 


Character 





Collating ~ 


Hexadecimal! 
Equivalent 


- 
@ 
~ 
Oo 
oO 
a 
iso] 
£ 
oO 


Collating 


Sequence 


Sequence 





K 


33 
39 


rT) nS 






43 


™ tS o 
ARRAN 
ue oO im <¢ 
Te) oO olnr 


(underscore) 











Table D-5. Normal Collating Sequence and Hexadecimal Equivalents of Characters 
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Sign For Negative Balance 


Print Out On Zero Balance * 
Domestic and Zero 
United Kingdom | World Trade / wot ade | Trade wot ade | Suppress 











x 

o 

a 
fe 

# 

i 

Bi 












* — Zero balances for the World Trade format are written in two ways, depending on the entry made in column 21 of the control card 
specifications. 


The X code performs no editing. 


The Y code suppresses the leftmost zero only. The Y code edits a three to six digit field according to the following pattern: 
nn/n 
nn/nn | 
nn/nn/n 
nn/nn/nn 

If a data field of six digits is packed on disk and the Y edit code is used with the data field, an error will occur. To solve this 

problem, move the data field to another field. 


Table D-6. Edit Codes 
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Block Length Input/Output Number of 
Record Computed Area Allocated Records per 
by RPG II by RPG II 





* Files in Group B can require a larger input/output area than files in 


Group A. 
Group A Group B 
Consecutive Output Consecutive Update 
Consecutive Input Indexed Update 
Indexed Input Indexed File 
Processed Sequentially Processed Randomly 
Indexed Output Direct File 


Random Input by ADDROUT 
Random Update by ADDROUT 


Note: Results are the same for DISK and DISK45. 


Table D-7. Block Length and Size of Input/Output Area Computed by RPG II for Disk Files 
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Key 
Length 





Number of Records (thousands) 
(add one key length for 5445) 


* The bytes of main storage required for the Core 
Index is based on one Core Index entry per track 
of file index entries (single volume files only). 


Table D-8. Bytes of Main Storage Required for Core Index — 5444 


90 


80 

70 
Tracks 60 
Required 


For File * 50 


40 


30 


20 


10 





Number of Records in File (hundreds) — 5444 


* Record storage area only; index area for indexed file is not included. 


Table D-9. File Allocation 
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Appendix E. RPG 11 Error Messages 


This appendix lists the RPG II and BSCA error messages 
for the IBM System/3 Model 10, Model 12, and Model 15. 
For each error message, this appendix includes an expla- 
nation of the message, a description of any action the 
system takes, and suggested responses you can give to 
restart the system or to avoid the message when the job 

is run again. For information on other types of messages, 
see the appropriate halt guide listed under Related Pub- 
lications in the Preface. 


References in this section to job refer to job step or simply 
program for the Model 15. 
MESSAGE FORMAT 


Each message is preceded by an identification code. This 
code consists of three parts (Figure E-1): 


1. Program identification RG (for RPG II). 
Ze Message number. 
3. Significance code: 

W (Warning) — Warning that an abnormal con- 
dition exists. Corrective action is 
required only if condition is un- 
intentional. 

T (Terminal) — An error condition exists that re- 
quires corrective action before 


the system can continue executing 
the program. 
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Message Number 


RG 230 Ww 


Program Identification | 





Significance Code 


a 


Figure E-1. Message Format ; 
‘ 


A . 


RG001—NO SOURCE 


Code: T—Terminal 

Explanation: You did not supply a source pro- 
gram for this job. 

The job is terminated. 

You must supply a source program 
and resubmit the job. 


System Action: 
User Response: 


t 
RG002—INVALID OBJECT OUTPUT ENTRY IN COL 10, 
ASSUME BLANK 


Code: ji W—Warning 
Specification Type: H 
Explanation: The entry in column 10 of your 


header line is not C, D, P, or blank. 
Blank is assumed and the object 
program is temporarily written in 
the object library. 

If this assumption was wrong, make 
the proper entry (C, D, or P) in 
column 10 and resubmit the job. 


System Action: 


User Response: 


RG003—INVALID LISTING OPTION IN COL 11, 
ASSUME BLANK 


Code: W—Warning 
Specification Type: H 
Explanation: The entry in column 11 is neither B 


nor blank. 

Blank is assumed. Therefore, a 
source program listing and the ob- 
ject program are produced. 

If this assumption was wrong, make 
the proper entry in column 11 and 
resubmit the job. 


System Action: 


User Response: 


RG004—INVALID OR BLANK STORAGE SIZE TO 


EXECUTE ENTRY IN COL 12-14, ASSUME SYSTEM 
SIZE 


Code: W—Warning 
Specification Type: H 
Explanation: Columns 12-14 are blank or they 


contain an entry which is greater 
than 061. 

The size of your system is assumed. 
If this assumption was wrong, make 
the proper entry in columns 12-14 
and resubmit the job. 


System Action: 
User Response: 


RGO00S5—INVALID DEBUG CODE IN COL 15, ASSUME 
BLANK 


Code: W—Warning 
Specification Type: H 
Explanation: The entry in column 15 is neither 


1 nor blank. 

Blank is assumed 

If this assumption was wrong, make 
the proper entry in column 15 and 
resubmit the job. 


System Action: 
User Response: 


RGO06—INVALID ENTRY IN COL 16, ASSUME BLANK 


Code: W—Warning 
Specification Type: H 
Explanation: This column is not used; it must be 


left blank. 
Blank is assumed. 
To avoid this message the next 


time the job is run, leave column 
16 blank. 


System Action: 
User Response: 


RG007—ENTRY IN COL 12-14 NOT A MULTIPLE OF 2K 


Code: W—Warning 
Specification Type: H- 
Explanation: On Model 15 only, main storage 


is allocated in 2K increments... 
Entry is rounded up to the next 
2K increment. s 

If this assumption is incorrect, 
make the proper entry in Columns 
12-14 and resubmit the job. 


System Action: 


User Response: 


RGOO8—INVALID ENTRY IN COL 37 AND/OR 
COLUMNS 52-54, ASSUME BLANKS. 


Code: W—Warning 
Specification Type: H ie 
Explanation: The entry in column 37 of your 


header line is not I, B, or blank 

(B is not supported by 5704-RG2). 
Blank is assumed. < 

If this assumption was wrong, 
make the proper entry (I or B) in — 


System Action: 
User Response: 


column 37 and resubmit the job, ° 2. gs 


RGO009—INVALID ENTRY IN COL 49, ASSUME BLANK : 


Code: W—Warning 
Specification Type: H 
Explanation: Column 49 is not used. 


Blank is assumed. . 

To avoid this message the next 
time the job is run, leave column 
49 blank. 


System Action: 
User Response: 


RGO11—INVALID ENTRY IN COL 17-20, 


ASSUME BLANK | 

Code: W—Warning 

Specification Type: H 

Explanation: These columns are not used; they 


must be left blank. 

Blanks are assumed. 

To avoid this message the next 
time the job is run, leave columns 
17-20 blank. : 


System Action: 
User Response: 
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RGO12—INVALID INVERTED PRINT ENTRY IN COL 
21, ASSUME BLANK 


Code: W—Warning 
Specification Type: H 
Explanation: | The entry in column 21 of your 


header line is not I, D, J, or blank. 
System Action: 
User Response: If this assumption was wrong, make 
the proper entry in column 21 and 


resubmit the job. 


RGO13—INVALID ENTRIES IN COL 22-25, ASSUME 
BLANKS 


Code: W—Warning 
Specification Type: H 
Explanation: These columns are not used; they 


must be left blank. 

Blanks are assumed. 

To avoid this message the next 
time the job is run, leave columns 
22-25 blank. 


System Action: 
User Response: 


RGO14—INVALID ALTERNATE COLLATING 
SEQUENCE ENTRY IN COL 26, ASSUME S 


Code: W—Warning 
' Specification Type: H 
Explanation: The entry in column 26 of your 


header line is neither blank nor S. 
The entry is assumed to be S. The 
S entry alters the normal collating 
sequence. 

If this assumption was wrong, make 
the proper entry in column 26 and 
resubmit the job. 


System Action: 


User Response: 


RGO15—INVALID ENTRIES IN COL 27-36 AND/OR 
38-40, ASSUME BLANKS 


Code: W—Warning 
Specification Type: H | 
Explanation: These columns are not used; they 


must be left blank. _ 

Blanks are assumed. 

To avoid this message the next 
time the job is run, leave columns 
27-36 and 38-40 blank. 


System Action: 
User Response: 
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Blank is assumed; the job continues. 


RGO16—INVALID 1P REPEAT ENTRY IN COL 41, 
ASSUME 1 


Code: W—Warning 
Specification Type: H 
Explanation: Column 41 of your header line is 


neither 1 nor blank. 

1 is assumed; the job continues. 

If this assumption was wrong, make 
the proper entry in column 41 and 
resubmit the job. 


System Action: 
User Response: 


RGO17—INVALID ENTRY IN COL 42, ASSUME BLANK 


Code: W—Warning 
Specification Type: H 
Explanation: This column is not used; it must be 


left blank. 

Blank is assumed; the job continues. 
To avoid this message the next time 
the job is run, leave column 42 
blank. 


System Action: 
User Response: 


RGO18--INVALID FILE TRANSLATION ENTRY IN 
COL 43, ASSUME F 


Code: | W—Warning 
Specification Type: H 
Explanation: The entry in column 43 of your 


header line is neither F nor blank. 
F is assumed; the job continues. 
If this assumption was wrong, 
make the proper entry in column 
43 and resubmit the job. 


System Action: 
User Response: 


RGO19—INVALID ZERO SUPPRESS ENTRY IN COL 
44, ASSUME 1 


Code: W—Warning 
Specification Type: H 
Explanation: The entry in column 44 of your 


header line is neither 1 nor blank. 

1 is assumed and the job continues. 
If this assumption was wrong, 
make the proper entry in column 
44 and resubmit the job. 


System Action: 
User Response: 


RGO20—INVALID NON-PRINTABLE CHARACTER 
ENTRY IN COL 45; ASSUME 1 


Code: W—Warning 
Specification Type: H 
Explanation: Column 45 must be blank or 1. 


A blank entry provides a halt on 
nonprintable characters and a 1 


does not. 
System Action: 1 is assumed. 
User Response: To avoid this message the next 


time, make the proper entry in 
column 45 and resubmit the job. 


RG021—INVALID ENTRIES IN COL 46-47, 50-51, OR 
55-74, ASSUME BLANKS 


Code: W—-Warning 

Specification Type: H 

Explanation: These columns are not used; they 
must be left blank. 

System Action: Blanks are assumed. 

User Response: To avoid this message the next 


time this job is run, leave columns 
46-47, 50-51, and 55-74 blank. 


RG022—INVALID ENTRY IN COL 6 OR SPEC TYPE 
OUT OF SEQUENCE 


Code: T—Terminal 
Specification Type: F,E,L,T,1I,C, orO 
Explanation: The entry in column 6 must be F, 


E, L, T, 1, C, or O and the specifica- 


tions must be in the proper se- 


quence. 

System Action: The job is terminated and the en-. 
tire specification line is ignored. 

User Response: Check to see which specifications 


contain an invalid entry in column 


6 or are out of the sequence re- 
quired in the source program. — 
(Valid entries for column 6 are H, 
F,E, L, T, I, C, or O, and records 
must be in that order.) Resubmit 
the job. 


RG023—INVALID FILENAME IN COL 7-14 


Code: T—Terminal 

Specification Type: F,1, L, T, or O 

Explanation: Filename specified in columns 7-14 
was invalid. 

System Action: The job is terminated and the entire 
specification line is ignored. 

User Response: Check your source specifications to 


determine which have an invalid 
filename. Make the proper entry 
and resubmit the job. 


RGO24—FILENAME PREVIOUSLY DEFINED IN COL 
7-14 


Code: T—Terminal 

Specification Type: F 

Explanation: This filename is not unique. 

System Action: The job is terminated and the en- 
tire specification line is ignored. 

User Response: Assign a unique name to the file. 


Resubmit the job. 


RG025—INVALID DEVICE NAME IN COL 40-46, 
ASSUME DISK 


Code: T—terminal 
Specification Type: F 
Explanation: The entry in columns 40-46 is not 
a valid device name. 
System Action: DISK is assumed, but the job is 
terminated. 
- User Response: Enter the proper device name in 


columns 40-46 of the File Descrip- 
tion sheet and resubmit the job. 
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RG0O26—INVALID FILE TYPE ENTRY IN COL 15, 
ASSUME DEFAULT FOR DEVICE - 


Code: T—Terminal 
Specification Type: F 
Explanation: The file type entry in column 15 


is not I, O, C, U, D, or the entry is 
not valid for the device specified. 

O is assumed for files assigned to 
PRINTER and PRINTR2;1 is 
assumed for files assigned to TAPE 
and CONSOLE; C is assumed for 
files assigned to MFCU1, MFCU2, 
1442, MFCM1, MFCM2 SPECIAL, 
DISKET or BSCA. U is assumed for 
files assigned to DISK, DISK40, 
and DISK4S. The job is terminated. 
Enter the proper file type in col- 
umn 15 and resubmit the job. 


System Action: 


User Response: 


RG028—FILE DESIGNATION IN COL 16 IS INVALID 
FOR EITHER FILE TYPE OR DEVICE. ASSUME 
SECONDARY. 


Code: W—Warning 
Specification Type: F 
Explanation: The entry in column 16 is not valid 


for an input, combined or update 
file. 

S is assumed and the job continues. 
If this assumption was wrong, make 
the proper entry in column 16 and 
resubmit the job. . 


System Action: 
User Response: 


RG029—DEVICE NAME IN COL 40-46 BLANK AND 
COL 15 NOT I OR 0, ASSUME DISK 


Code: T—Terminal 
Specification Type: F 
Explanation: If device independent input or 


output file is desired (Model 15 
only), put an I or O in column 15; 
otherwise enter a proper device 
name in columns 40-46 of the file 
description specification. 


System Action: DISK is assumed, but the job is 
terminated. 
User Response: Make corrections and resubmit 
the job. 


RG030—FILE DESIGNATION ENTRY IN COL 16 
INVALID FOR OUTPUT OR DISPLAY FILE, ASSUME 
BLANK 


Code: W—Warning 
Specification Type: F 
Explanation: Column 16 must be blank for out- 


put files and display files (O or D 
in column 15). 

Blank is assumed. 

To avoid this message the next 
time this job is run, make a blank 
entry in column 16. 


System Action: 
User Response: 


RG032—NO PRIMARY FILE SPECIFIED IN COL 16, 
ASSUME FIRST SECONDARY FILE AS PRIMARY 


Code: W—Warning 
Specification Type: F 
Explanation: No primary file was specified (P in 


column 16) of your file description 
specifications. 

The first secondary file is assumed 
to be the primary file. 

If this assumption was wrong, make 
the proper entry in column 16 and 
resubmit the job. 


System Action: 


User Response: 


RG033—NO PRIMARY OR SECONDARY FILE 
SPECIFIED IN COL 16 OR NO FILE DESCRIPTION 
SPEC FOUND 


Code: T—Terminal 
Specification Type: F 
Explanation: No primary or secondary file was 


specified (P or S in column 16 of 
the file description specifications) 
or no file description specifications 
were supplied. . 

The job is terminated. 

Supply file description specifica- 
tions or define an input file and 
resubmit the job. 


System Action: 
User Response: 


RG034—MULTIPLE PRIMARY FILES DEFINED IN 


COL 16, ASSUME SECONDARY 

Code: W—Warning 

Specification Type: F 

Explanation: More than one primary file (P in 


column 16) was defined in your 
file description specifications. 

All primary files except the first 
one are assumed to be secondary. 
If this assumption was wrong, make 
the proper entry (S in column 16). 
Resubmit the job. 


System Action: 


User Response: 


RG036—INVALID END OF FILE ENTRY IN COL 17, 
ASSUME E FOR INPUT FILE TYPE WITHOUT RAN- 
DOM PROCESSING 


Code: W—Warning 
Specification Type: F 
Explanation: The entry in column 17 of your 


file description specifications is 
neither E nor blank. 
E is assumed for input files not 
processed randomly; blank is as- 
sumed for all other files. 
If this assumption was wrong, make 
the proper end-of-file entry in 

- column 17. Resubmit the job. 


System Action: 


User Response: 


RG037—IN VALID ENTRY IN COL 19 


Code: ‘W—Warning 
Specification Type: F . 
Explanation: Column 19 may contain a D, F, or 


V for tape files only. For all 

other devices, column 19 must 
contain an F, 

D is assumed for variable length 
ASCII tape files when column 19 
contains a V. V is assumed for 
variable length EBCDIC tape files 
when column 19 contains a D. 

F is assumed for all other file types 
and invalid entries for tape files. 
If this assumption is wrong, make 
the proper entry in column 19 and 
resubmit the job. 


System Action: 


User Response: 


RG038—END OF FILE ENTRY IN COL 17 INVALID 
FOR FILE TYPE _ =: 


Code: W—Warning 
Specification Type:  F | 
Explanation: ~ Column 17 must be blank for out- 


put, demand, table, and display 
files. mo, “a 
Blank is assumed. 

To avoid this message the next time 
this job is run, leave column 17 
blank. : ° 


System Action: 
User Response: 


RG039—INVALID SEQUENCE ENTRY IN COL 18, 


ASSUME PREVIOUS ENTRY 

Code: W—Warning 

Specification Type: F 

Explanation: The entry in column 18 is not A, ' 


D, or blank. 

The entry in column 18 from the 
previous specification line is as- 
sumed, 

If this assumption was wrong, make 
the proper entry in column 18. 


System Action: 


User Response: 


RG040—ENTRY IN COL 18 INVALID FOR TYPE OF 
FILE OR MODE OF PROCESSING, ASSUME BLANK 


Code: W—Warning 


Specification Type: F 
Explanation: Column 18 must be blank for de-’ 


mand files, output files, record 

address files, display files, and for 

any files processed randomly. | 
Blank is assumed. 

To avoid this message the next time 

this job is run, leave column 18 

blank. 


System Action: 
User Response: 
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RG041—INVALID RECORD LENGTH ENTRY IN COL . 
24-27, ASSUME DEFAULT FOR DEVICE 


Code: . W—Warning 

Specification Type: F 

Explanation: Incorrect record length was speci- 
és fied in columns 24-27. 

System Action: The maximum record length for 


. the device is assumed, except DISK, 
DISK40, and DISK4S5 for which 
; #, 256 is assumed. ; 
User Response: If this assumption was wrong, make 
the proper record length entry and 
resubmit the job. 


RG042—INVALID ENTRIES IN COL 20-23, ASSUME 
RECORD LENGTH 


Code: W—Warning 
Specification Type:  F © os 
Explanation: The entry in columns 20-23 is 


neither equal to nor a multiple of 
' . the record length specified in 
columns 24-27. For tape files 
with variable length records, the 
block size should be at least the 
: | record length plus eight (8). 
System Action: The record length is assumed for 
all devices, except tape with vari- 
able length records for which 
record length plus eight (8) is 
; assumed. . 
User Response: If the assumption was wrong, make 
: the block length a multiple of 
record length and resubmit the job. 
If the record length is variable on — 
tape, add eight to the block size. 
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RG043—DUAL I/O ENTRY IN COL 32 INVALID FOR 
TYPE OF FILE OR MODE OF PROCESSING, ASSUME 


BLANK 


Code: 
Specification Type: 
Explanation: 


System Action: 
User Response: 


W_-Warning 

F 

(1) Dual I/O (1-9 in column 32) 
cannot be specified for combined, 
demand, table, and update files, or 
for ariy file processed randomly. 
(2) Neither can dual I/O be speci- 
fied if shared I/O has been speci- 
fied (column 48 of control card 
specifications). T in columin 32 is 
invalid for a table file. 

Blank is assumed. 

If this assumption was wrong, make 
the proper dual I/O entry and re- 
submit the job. 


RG044—INVALID ENTRY IN COL 32, ASSUME BLANK 


Code: 
Specification Type: 
Explanation: 


System Action: 
User Response: 


W—Warning 

F 

The entry in column 32 was not 
1-9, I, T, or blank, or entry is not 
allowed for device. 

Blank is assumed. ; 

If the assumption was wrong, make 
the proper entry and resubmit the 
job. 


RG045—OVERFLOW INDICATOR IN COL 33-34 
PREVIOUSLY ASSIGNED, ASSUME BLANK 


Code: 
Specification Type: 
Explanation: 


System Action: 


User Response: 


T—Terminal 

F : 

The same overflow indicator was 
assigned to more than one file. 
Blank is assumed, but the job is 
terminated. 

Assign different overflow indicators 
to each file being described. 


RG046—INVALID OVERFLOW INDICATOR IN COL 
33-34, ASSUME BLANK 


Code: T—Terminal 

Specification Type: F 

Explanation: The entry in columns 33-34 was 
not OA-OG, or OV. 

System Action: Blank is assumed, but the job is 
terminated. 


Enter OA-OG or OV in columns 
33-34 if you want to specify over- 
flow for this file, if not, leave 
columns 33-34 blank. Resubmit 
the job. 


User Response: 


RG047—OVERFLOW INDICATOR IN COL 33-34 
INVALID FOR DEVICE, ASSUME BLANK 


Code: W—Warning 
Specification Type: F 
Explanation: The overflow indicator in columns 


33-34 was not assigned to a printer 
file. 

Blank is assumed. 

To avoid this message the next time 
this job is run, assign overflow 
indicators to printer files. 


System Action: 
User Response: 


RG048—INVALID OR BLANK EXTENSION CODE 
ENTRY IN COL 39 FOR TABLE OR RECORD ADDRESS 
FILE, ASSUME E 


Code: W—Warning 
Specification Type: F 
Explanation: The extension code in column 39 


was not E for a table or record 
address file. 

E is assumed and the job continues. 
To avoid this message the next time 
this job is run, enter E in column 
39. 


System Action: 
User Response: 


RG049—INVALID EXTENSION CODE IN COL 39 


Code: W—Warning 
Specification Type: F 
Explanation: The entry in column 39 is neither 


L nor blank for output files as- 
signed to the printer. 
System Action: L is assumed and the job continues. 
User Response: 
the entry in column 39 blank. Re- 


submit the job. 


If this assumption was wrong, make 


RG051—EXTENSION CODE ENTRY IN COL 39 


- INVALID WITH DEVICE OR P, S, C, OR D IN COL 16, 


ASSUME BLANK 

Code: W—Warning 

Specification Type: F 

Explanation: Column 39 can only be used with 


table, record address or printer files. 
Blank is assumed and the job con- 
tinues. 

If this assumption was wrong, make 
the proper entry in column 39 and 
resubmit the job. 


System Action: 


User Response: 


RG052—DEVICE IN COL 40-46 PREVIOUSLY 
ASSIGNED TO OUTPUT OR NON-TABLE INPUT FILE 


_ Code: T—Terminal 


Specification Type: F 

Explanation: The device name in columns 40-46 . 
was assigned to more than one out- 
put or non-table input file. 

The job is terminated and the entire 
specification line is ignored. This 
condition may cause other errors 

to be generated. 

Make the device name entry in col- 
umns 40-46 unique for each output 
or non-table input file (except those 
assigned to disk, tape, and console). 
Resubmit the job. 


System Action: 


User Response: 


RG053—INVALID ENTRIES IN COL 47-52, ASSUME 
BLANKS | 


Code: W—Warning 

Specification Type: F 

Explanation: These columns are not used; they 
must be left blank. 

System Action: Blanks are assumed and the job 
continues. 


To avoid this message the next 
time this job is run, leave columns 
47-52 blank. 


User Response: 
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RGO55—ENTRIES IN COL 71-72 INVALID FOR TABLE 
FILE, ASSUME BLANK | 


Code: W—Warning 
Specification Type: F 
Explanation: Columns 71-72 must be left blank 


for table files, since table files can- 
not be conditioned by U1-U8. 
Blanks are assumed and the job 
continues. 

To avoid this message the next 
time the job is run, leave columns 
71-72 blank for table files. 


System Action: 


User Response: 


RG0O57—INVALID FILE CONDITIONING ENTRIES IN 
COL 71-72 


Code: T—Terminal 
Specification Type: F 
Explanation: Columns 71-72 of your file descrip- 


tion specification are not blank nor 
do they contain one of the external 
indicators (U1-U8). 

The job is terminated. 

Leave columns 71-72 blank or enter 
one of the external indicators (U1- 
U8). Resubmit the job. ; 


System Action: 
User Response: 


RG0O58—INVALID ENTRIES IN COLS 67 AND/OR 73-74, 
ASSUME BLANK 


Code: W—Warning 
Specification Type: F 
Explanation: Columns 67 and 73-74 are not 


used; they must be left blank. 
Blanks are assumed and the job 
continues. 

To avoid this message when the job 
is run again, leave columns 67 and 
73-74 blank. 


System Action: 


User Response: 
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RG060—INVALID ENTRY IN COLUMN 48, ASSUME 
BLANK 


Code: W—Warning 
Specification Type: H . 
Explanation: The shared I/O entry in column 48 


is not 1, E, or blank. A 1 is invalid 
in Model 15 RPGII. Program 
5704-RG2 allows an E in column 
48 for external disk I/O buffers. 
Blank is assumed. 

If this assumption was wrong, make 
the proper entry in column 48 and 
resubmit the job. 


System Action: 
User Response: 


RG061—INVALID ENTRIES IN COL 7-10, ASSUME 
BLANK 


Code: W—Warning 
Specification Type: E % 
Explanation: Columns 7-10 are not used; they . 


must be left blank. 

Blanks are assumed and the job 
continues. 
To avoid this message when the job 
-is run again, leave columns 7-10 
blank. 


System Action: 


User Response: 


RG062—INVALID OR UNDEFINED FROM FILENAME 
ENTRY IN COL 11-18 | 


Code: T—Terminal 
Specification Type:  E 
Explanation: The From Filename in columns 


11-18 of your extension specifica- 
tions is invalid or has not been pre- 
viously defined in file description 
specifications. (The From File- 
name must start in column 11.) 
The job is terminated. 

Make the proper From Filename 
entry in columns 11-18. If col- 
umns 11-18 already contain a valid 
entry, check to make sure that the © 
file was defined in your file descrip- 
tion specifications. ne etbaat the 
job. 


System Action: 
User Response: 


RG063—TYPE OF FILE INVALID FOR FROM FILE- 
NAME ENTRY IN COL 11-18 


Code: T—Terminal 
Specification Type: E . 
Explanation: The From Filename entry does not 


refer to a table or record address 
input file. 

The job is terminated. 

Make sure the entry in columns 

11-18 refers to a table or record 
address input file. Resubmit the 
job. 


System Action: 
User Response: 


RG064—-INVALID OR UNDEFINED TO FILENAME 
IN COL 19-26 


Code: T—Terminal 
Specification Type: E 
Explanation: The To Filename in columns 19-26 


of your extension specifications is 
invalid or has not been defined in 
file description specifications. (The 
To Filename must start in column 
19.) 

The job is terminated. 

Make the proper To Filename entry 
in columns 19-26. If columns 19- 
26 already contain a valid entry, 
check to make sure the filename 
has been previously defined in your 
file description specifications. Re- 
submit the job. 


System Action: 
User Response: 


RGO65—TYPE OF FILE INVALID OR INCORRECT FOR 
TO FILENAME ENTRY IN COL 19-26 


Code: T—Terminal 
Specification Type: E 
Explanation: The To Filename entry does not 


refer to an output file, or to a file 
processed by a record address file. 
The job is terminated. 

Be sure the entry in columns 19-26 
refers to an output file or to a file 
processed by a record address file. 
‘Resubmit the job. 


System Action: 
User Response: 


RG067—INVALID TABLE OR ARRAY NAME IN COL 
27-32 


Code: T—Terminal 
Specification Type: E 
Explanation: The table or array name in columns 


27-32 was not specified properly. 
A table or array name must start in 
column 27. A table name must be- 
gin with TAB; an array name must 
not begin with TAB. 

The job is terminated. 

Make the proper table or array 
name entry in columns 27-32 and 
resubmit the job. 


System Action: 
User Response: 


RG068—INVALID OR MISSING NUMBER OF ENTRIES 
PER RECORD ENTRY IN COL 33-35, ASSUME 08 


Code: T—Terminal 
Specification Type: E 
Explanation: The entry in columns 33-35 is 


missing on a specification line 
which has a From Filename in 
columns 11-18, or it is not a one 
to three-digit number (1-999). 

08 is assumed, but the job is 
terminated. 

Define the number of entries per 
record. To do so, make a numeric 
entry (1-999) in columns 33-35. 
Resubmit the job. 


System Action: 


User Response: 


RGO70—INVALID OR MISSING NUMBER OF ENTRIES 
PER TABLE OR ARRAY IN COL 36-39, ASSUME 05 


Code: T—Terminal 
Specification Type: E 
Explanation: The entry in columns 36-39 is 


missing or it is not a one to four- 
digit number (1-9999). 

05 is assumed, but the job is 
terminated. 

Define the maximum number of 
entries per table or array. To do so, 
make a numeric entry (1-9999) in 
columns 36-39. Resubmit the job. 


System Action: 


User Response: 
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RG071—NO. OF ENTRIES PER RECORD IN COL 33-35 
EXCEEDS NO. OF ENTRIES PER TABLE/ARRAY IN 


COLUMNS 36-39 


Code: 
Specification Type: 
Explanation:: 


System Action: 
User Response: 


T—Terminal 

E : 

Number of entries per record speci- 
fied is greater than the number of 
entries per table or array specified. 
The job is terminated. 

Make the proper entries in columns 
33-35 and columns 36-39. The 
number of entries per record (col- 
umns 33-35) can be equal to or 
less than the number of entries per 
table or array (columns 36-39), 
Resubmit the job. 


RG0O72—INVALID OR MISSING LENGTH OF ENTRY IN 
COL 40-42 OR 52-54, ASSUME 05 


Code: 
Specification Type: 
Explanation: 


System Action: 


User Response: 


T—Terminal 

E 

Length of entry specified is missing 
or is not a one to three-digit num- 
ber (1-15 for numeric entries; 1- 
256 for alphabetic entries). 

05 is assumed, but the job is 


’ terminated. 


Enter a one to three-digit number in 
columns 40-42 or 52-54 to define 
length of table or array entries 
(1-15 or 1-256). Resubmit the job. 


RGO73—LENGTH SPECIFIED FOR EACH TABLE/ARRAY 
RECORD IN COL 33-35 AND COL 40-42 OR 52-54 


EXCEEDS RECORD LENGTH 

Code: T—Terminal 

Specification Type: E | 
Explanation: _ Table record length specified (length 


System Action: 
User Response: 
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of entry times number of entries 

per record) is greater than the record 
length you specified for the table 
file in file description specifications. 
The job is terminated. 


- Make the necessary changes so that 


the table record length does not 
exceed the record length in file 
description specifications. Resubmit 
the job. 


. User Response: 


RG074—INVALID ENTRY IN COL 43 OR 55, ASSUME 


BLANK 

Code: W—Warning 
Specification Type:  E 
Explanation: 


System Action: 
User Response: 


RGO75—PACKED OR BINARY VALID ONLY FOR PRE- 
EXECUTION TIME TABLE OR ARRAY 


Code: T—Terminal 
Specification Type: E 
Explanation: 


or arrays. 
System Action: 


time arrays. 


RG0O76—INVALID DECIMAL POSITION ENTRY IN COL 


44 OR 56, ASSUME 0 

Code: T—Terminal 
Specification Type: E 
Explanation: 


0-9 or blank. 
System Action: 
terminated. 
User Response: 


The entry in column 43 or column 
55 of your extension specifications 
is not P, B, or blank. 

Blank is assumed. 

Make the entry in column 43 or 
column 55 P, B, or blank. Re- 
submit the job. 


Packed or binary format can only 
be specified (column 43 or column 
55) for pre-execution time tables 


Job is terminated. 

To avoid this message the next time 
this job is run, leave column 43 and 
column 55 blank for compile time 
tables or arrays and for execution 


Decimal position entry in column 
44 or column 56 is not a number 


Zero is assumed, but the job is 
Make the proper decimal position 


entry (0-9, blank) in columns 44 
and 56. Resubmit the job. 


RG077—INVALID SEQUENCE ENTRY IN COL 45 OR 
57, ASSUME BLANK 


Code: T-Terminal 
Specification Type: E | 
Explanation: Sequence entry in column 45 or 


column 57 is not A, D, or blank. 
Blank is assumed, but the job is 
terminated. 

Make the proper sequence entry 
(A, D, or blank) in column 45 or 
57 and resubmit the job. 


System Action: 


User Response: 


RG079—INVALID ALTERNATE TABLE/ARRAY NAME 
IN COL 46-51 


Code: T—Terminal 
Specification Type: E | 
Explanation: The table or array name in columns 


46-51 was not specified properly. 
The table or array name must start 
in column 46; a table name must 
begin with TAB. 

The job is terminated. 

Enter the proper table or array 
name in columns 46-51 and re- 
submit the job. 


System Action: 
User Response: 


RG080—ALTERNATE TABLE/ARRAY NAME IN COL 
46-51 AND/OR 27-32 MISSING FOR ENTRIES IN 
COLUMNS 33-45 AND/OR 52-57, ASSUME COL 33-57 
AND/OR 46-57 BLANK 


Code: T—Terminal 
Specification Type: E . . 
Explanation: Columns 52-57 contain entries de- 


_ scribing an alternating table or 
array, but no alternating table or 
array name was specified in columns 
46-51 or no table or array name 
was specified in columns 27-32. 
The job is terminated. 

Make a valid table or array name 
entry in columns 27-32 and in 
columns 46-51 if an alternating 
table or array is described. Resub- 
mit the job. 


System Action: 
User Response: 


RG082—LENGTH OF TABLE/ARRAY ENTRY IN COL 
40-42 OR 52-54 FOR ALPHA FIELDS EXCEEDS 
MAXIMUM. 


Code: T—Terminal 
Specification Type:  E 
Explanation: Length of table or array entry 


specified in columns 40-42 or 
52-54 is too large. 

256 is assumed for non-compile - 
time tables or arrays. For compile 
time tables or arrays the READER 
record length is assumed. 

Enter 256 or less for the length of 
table or array entry specifications 
in columns 40-42 or 52-54. 


System Action: 


User Response: 


RG083—LENGTH OF TABLE/ARRAY ENTRY IN COL | 
40-42 OR 52-54 FOR NUMERIC FIELD EXCEEDS 15, 
ASSUME 15 


Code: T—Terminal 
Specification Type: E 
Explanation: Length of numeric table or array 


entry specified in columns 40-42 
or 52-54 is too large. 

15 is assumed, but the job is 
terminated. | 
Enter 15 or less for the length of a 
numeric table or array entry in 
columns 40-42 and/or 52-54. 


System Action: 


User Response: 


RG084—FILE AND RECORD TYPE ENTRIES IN COL 
7-42 AND FIELD TYPE ENTRIES IN COL 43-74 ON 
SAME LINE, ASSUME 7-42 BLANK 


Code: T—Terminal 

Specification Type: I~ 

Explanation: Field type entries (columns 43-74) 
are not specified one line lower 
than file and record type entries 
(columns 7-42). 

System Action: File and record type entries (col- 


umns 7-42) are assumed to be 
blank and the job is terminated. 
Specify the field type entries (col- 
umns 43-74) one line lower than 
the file and record type entries 
(columns 7-42). Resubmit the job. 


User Response: 
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RGO85—INVALID, MISSING OR UNDEFINED FILE 
NAME 


Code: T—Terminal 


Specification Type: L,1I,C 
Explanation: Either (1) the filename was missing, 


(2) the filename was not specified 
properly, or (3) the filename was 
not previously defined in your file 
description specifications. 
The job is terminated. 
Make the proper filename entry. 

‘ Also be sure that the filename has 
been previously defined in file 

. description specifications. Resub- 
mit the job. 


System Action: 
User Response: 


RG086—FILENAME IN COL 7-14 DOES NOT REFER 
TO PRINTER FILE. | 


Code: T—Terminal 
Specification Type: L 
Explanation: Filename in your line counter 


specifications does not refer to a 
printer file. 

The job is terminated. 

Place the proper filename entry in 
columns 7-14. The filename speci- 
fied must refer to a printer file. 
Resubmit the job. 


System Action: © 
User Response: 


RG087—FORM LENGTH ENTRY IN COL 15-17 INVALID 
OR GREATER THAN 112 


Code: T—Terminal 


Specification Type: L 
Explanation: The form length entry in columns 


15-17 is not properly specified, or 
is too large. 

The job is terminated. 

Enter 112 or less for the form 
length entry in columns 15-17. 
Resubmit the job. | 


System Action: 
User Response: 
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' User Response: 


RGO88—INVALID OR MISSING FL ENTRY IN COL 
18-19, ASSUME FL 


Code: W—Warning 
Specification Type: L 
Explanation: Columns 18-19 were left blank or 


the entry specified is not FL. 
FL is assumed. 

To avoid this message when this 
job is run again, enter FL in col- 
umns 18-19. 


System Action: 


RG089—OVERFLOW LINE ENTRY IN COL 20-22 
INVALID OR GREATER THAN 112 


Code: T—Terminal 
Specification Type:  L 
Explanation: The overflow line entry in columns 


20-22 is invalid or a number greater 
than 112. 

The job is terminated. 

Columns 20-22 must be a number 
from 1-112. 


System Action: 
User Response: 


RGO90-INVALID OR MISSING OL ENTRY IN COL 
23-24, ASSUME OL 


Code: W—Warning 
Specification Type: L | 
Explanation: Columns 23-24 were left blank or 


the entry specified is not OL. 

OL is assumed. 

To avoid the message when this job 
is run again, enter OL in columns 
23-24. 


System Action: 
User Response: 


RGO91—OVERFLOW LINE IN COL 20-22 EXCEEDS 
FORM LENGTH IN COL 15-17, ASSUME FORM LENGTH 


Code: T—Terminal 
Specification Type:  L . 
Explanation: Overflow line specified is too large. 


Form length is assumed, but the 
job is terminated. 

Make the overflow line entry (col- 
umns 20-22) equal to or less than 
the form length entry (columns 
15-17). 


System Action: 


User Response: 


RG092—INVALID OR UNDEFINED FILENAME IN COL 
7-14 


Code: T—Terminal 
Specification Type: Ld; F 
Explanation: The filename entry is not specified 


properly, or it was not previously 
defined in your file description 
specifications. 

The job is terminated. __ 

Make the proper filename entry in 
columns 7-14. Also, make sure the 
filename has been previously de- 
fined in file description specifica- 
tions. Resubmit the job. 


System Action: 
User Response: 


RG093—FILE AND RECORD TYPE ENTRIES IN COL 
7-42 AND FIELD TYPE ENTRIES IN COL 43-74 ON 
SAME LINE, ASSUME 43-74 BLANK 


Code: T—Terminal 
Specification Type: _I 
Explanation: Field description entries (columns 


43-74) are not specified one line 
lower than file and record identifi- 
cation entries (columns 7-42). 


System Action: Field type entries (columns 43-74) 


are assumed to be blank and the job» 


is terminated. 

Specify the field type entries (col- 
umns 43-74) one line lower than 
the file and record type entries 
columns 7-42). Resubmit the job. 


~ User Response: 


RG094—FILE AND RECORD TYPE DESCRIPTION 
MUST PRECEDE THIS SPECIFICATION 


Code: T—Terminal 
Specification Type: I | 
Explanation: File and record type entries in col- 


umns 7-42 do not precede the re- 
lated field description entries in 
columns 43-74, 

The job is terminated. 

Enter the file and record type en- 
tries in columns 7-42 of the speci- 
fication line immediately preceding 
the related field description entries 
in columns 43-74. Resubmit the 
job. 


System Action: 
User Response: 


RGO95—AND OR OR LINE OUT OF ORDER 


Code: T—Terminal 
Specification Type:  1I,C 
Explanation: AND or OR line does not follow | 


the proper file or record type en- 
tries or is on the first line of calcu- 
lation specifications. (The system 
may have dropped your file and 
record type specifications because 
of other errors in your program.) 
The job is terminated. 

Make sure that the AND or OR line 
follows the proper file and record 
type entries and is not the first line 
in calculation specifications. Re- 
submit the job. 


System Action: 
User Response: 


RG096—AND LINE FOLLOWS LINE WITH NO RECORD 
IDENTIFICATION CODES 


Code: T—Terminal 
Specification Type: I . 
The specification line which pre- 


Explanation: . 
oo cedes your AND line does not con- 
tain record identification codes. . 
The job is terminated. | 
Make the proper record identifica- 
tion entries in the line preceding 
the AND line. Resubmit the job. 


System Action: 
User Response: 


RG097—NO FIELDS DESCRIBED FOR THIS OR 
PREVIOUS RECORD 


Code: W—Warning 
Specification Type: I 
Explanation: No field description entries were 


specified for this or the previous . 
record. . 

No action is taken. 
Make sure that all fields to be used 
from input records are described. 


System Action: 
User Response: 
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RG098—INVALID SEQUENCE ENTRY IN COL 15- 16, 
ASSUME ALPHABETIC SEQUENCE ENTRY 


Code: W—Warning 
Specification Type: I ; 
Explanation: The sequence entry in columns 


15-16 is neither a two-digit number 
- nor a two-character alphabetic 


entry. 
System Action: A two-character alphabetic entry is 
assumed. 


User Response: If this assumption was wrong, make 
ee ee the proper sequence entry and re- 
submit the job. 


RG101—NUMERIC SEQUENCE ENTRY IN COL 15-16 
NOT IN ASCENDING ORDER OR THE FIRST IS NOT 
01, ASSUME PREVIOUS NUMERIC SEQUENCE OR 01 


| IF FIRST NUMERIC RECORD 
Code: W—Warning 
Specification Type: I : 
Explanation: Either the first numeric sequence 


entry is not 01 or your numeric 
sequence entries are not in ascend- 
ing order. 
System Action: If this is the first numeric sequence 
7 entry, 01 is assumed; otherwise, the 
numeric sequence entry from the 
previous specification line is as- 
sumed. 
User Response: If this assumption was wrong, speci- 
ee ay 3 ~ fy the numeric sequence entries in 
columns 15-16 in ascending order 
starting with 01, and resubmit the 
job. 


RG102—INVALID NUMBER ENTRY IN COL 17 FOR 
NUMERIC SEQUENCE, ASSUME N 


Code: W—Warning 

Specification Type: I 

Explanation: The number entry in column 17 is 
Be ; neither 1 nor N. 

System Action: N is assumed. 

User Response: If this assumption was wrong, make 


the proper number entry in column 
17 and resubmit the job. - 
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RG103—INVALID OPTION ENTRY IN COL 18 FOR 
NUMERIC SEQUENCE, ASSUME O 


Code: ~ W—Warning 

Specification Type: I 

Explanation: The option entry is neither O nor 
blank. 

_ System Action: O is assumed. 
User Response: If this assumption was wrong, leave 
column 18 blank and resubmit the 

job. 


RG104—NUMBER/OPTION ENTRIES IN COL 17-18 
INVALID WITH ALPHAMERIC SEQUENCE ENTRIES 


Code: _ _T-Terminal 
Specification Type: I = 
Explanation: © Columns 17 and 18 must be blank 


when columns 15-16 contain an 
alphabetic sequence entry.. 

System Action: The job is terminated. 

User Response: Make columns 17 and 18 blank 
when columns 15-16 contain an 
alphabetic entry. Resubmit the 
job. 


RG105—NUMBER/OPTION ENTRIES IN COL 17-18 
INVALID FOR AND OR OR LINE, ASSUME BLANK 


Code: W—Warning 

Specification Type: I 

Explanation: Columns 17 and 18 must be blank 
in an AND or OR line. 

System Action: Blanks are assumed. . 

User Response: To avoid the message when this job 


is run again, leave columns 17 and 
18 of an AND or OR line blank. 


RG106—INVALID POSITION ENTRY FOR RECORD 
ID CODES IN COL 21-14, 28-31, OR 35-38, OR TO 
POSITION COL 48-51, ASSUME 1 


Code: T—Terminal 
Specification Type: I 
Explanation: The position entry for record ID 


codes or the To position for a field 
exceeds the record length. 

One is assumed; the job is 
terminated. 

Make the proper position entry for 
record ID codes or To position for 
a field and resubmit the job. 


System Action: 


User Response: 


RG107—INVALID NOT ENTRY IN COL 25, 32, OR 39, 
ASSUME N 


Code: W—Warning 
Specification Type: I 
Explanation: The entry in column 25, 32, or 39 


is not N or blank. 

N is assumed. 

If this assumption was wrong, leave 
column 25, 32, or 39 blank and re- 
submit the job. 


System Action: 
User Response: 


RG108—INVALID C/Z/D ENTRY IN COL 26, 33, OR 40, 
ASSUME C 


Code: W—Warning 
Specification Type: I 
Explanation: The entry in column 26, 33, or 40 


is not C, Z, or D. 

C is assumed. 

If this assumption was wrong, make 
the proper entry in column 26, 33, 
or 40 and resubmit the job. 


System Action: 
User Response: 


RG109—INVALID STACKER SELECT ENTRY IN COL 
42 OR NOT ALLOWED WITH DEVICE, ASSUME BLANK 


Code: W—Warning 
Specification Type: I 
| Explanation: Column 42 must be left blank, or 


contain a number from 1-4. 

Blank is assumed. 

To avoid this message the next time 
this job is run, leave column 42 
blank or enter a number from 1-4. 


System Action: 
User Response: 


RG110—STACKER SELECT ENTRY IN COL 42 


INVALID WITH AN AND LINE; ASSUME BLANK 


Code: W—Warning 
Specification Type: I 
Explanation: The entry in column 42 is not blank. 


Blank is assumed. 

To avoid this message the next time 
this job is run, leave column 42 
blank. 


System Action: 
User Response: 


RG111—INVALID ENTRY IN COL 43, ASSUME BLANK 


Code: W—Warning 
Specification Type: I 
Explanation: The entry in column 43 is not P, » 


B, or blank. 

Blank is assumed. 

If the assumption was wrong, make 
the proper entry in column 43 and 
resubmit the job. 


System Action: 
User Response: 


RG112—INVALID OR BLANK FROM OR TO ENTRY 
IN COL 44-51, ASSUME 1 FOR BOTH ENTRIES 


Code: T—Terminal 
Specification Type: I 
Explanation: Columns 44-47 and/or 48-51 do 


not contain an entry from | to 
4096. 

1 is assumed for columns 44-47 or 
columns 48-51, or for both; but 
the job is terminated. 

Make the proper From or To entry 
in columns 44-47 and/or 48-51 
and resubmit the job. 


System Action: 
User Response: 
RG113—FROM ENTRY IN COL 44-47 EXCEEDS TO 


ENTRY IN COL 48-51, ASSUME TO ENTRY EQUAL 
TO FROM ENTRY . 


Code: T—Terminal 
Specification Type: I 
Explanation: From entry specified in columns 


44-47 is larger than the To entry 
specified in columns 48-51. 

To entry is assumed to be equal 

to the From entry, but the job is 
terminated. 

Make the From entry (columns 
44-47) equal to or less than the To 
entry (columns 48-51). Resubmit 
the job. 


System Action: 


User Response: 
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RG114—LENGTH OF NUMERIC FIELD IN COL 44-51 
EXCEEDS 15, ASSUME 15 


Code: T—Terminal 
Specification Type: 1 oe | 
Explanation: Length specified in columns 44-51 


for numeric field is too large. 
Length of 15 is assumed, but the 
job is terminated. 

Make the length (columns 44-51) 
15 or less. Resubmit the job. 


System Action: 


User Response: 


RG115—ALPHAMERIC FIELD SPECIFIED AS PACKED 
OR BINARY, ASSUME NUMERIC FIELD . 


Code: T—Terminal 
Specification Type: 1 
Explanation: Column 43 must be blank for alpha- 


meric fields. 

The field is assumed to be numeric, 
but the job is terminated. 

Leave column 43 blank for alpha- 
meric fields or make an entry (0-9) 
in column 52 for numeric fields, 
and resubmit the job. 


System Action: 


User Response: 


RG116—INVALID DECIMAL POSITION ENTRY IN COL 
52; ASSUME 0 


Code: T—Terminal 

Specification Type: I 

Explanation: Decimal position entry in column 
52 is not 0-9 or blank. 

System Action: Zero is assumed, but the job is 
terminated. 


User Response: Make the proper decimal position 
entry in column 52 and resubmit 


the job. 


RG117—DECIMAL POSITION ENTRY IN COL 52 
INVALID FOR ARRAY; ASSUME BLANK 


Code: W—Warning 
Specification Type: I 
Explanation: No decimal position entry can be 


specified in column 52 for an array. 

System Action: Blank is assumed. 

User Response: 
| Decimal positions for arrays must 

__ be specified in your extension speci- 


fications. Resubmit the job. 
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Leave column 52 blank for an array. 


RG118—FIELD NAME IN COL 53-58 MISSING OR 
INVALID | ; 


Code: T—Terminal 


Specification Type: I 
Explanation: The field name entry in columns 


53-58 is missing or is not specified . 
properly. 

The job is terminated. 

Make a valid field name entry 
starting in column 53. Resubmit 
the job. 


System Action: 
User Response: 


RG119—INVALID CONTROL LEVEL INDICATOR IN 


COL 59-60; ASSUME BLANK 

Code: T—Terminal 

Specification Type: I 

Explanation: The control level entry in columns 


59-60 is neither L1-L9 nor blank. 
Blank is assumed, but the job is 
terminated. 

Make the proper control level entry 
in columns 59-60 and resubmit the 
job. 


System Action: 


User Response: 


RG120—INVALID MATCHING FIELD ENTRY IN COL 
61-62; ASSUME M1 


Code: T—Terminal 
Specification Type: I 
Explanation: The matching field entry in col- 


umns 61-62 is not M1-M9 or blank. 
- M1 is assumed, but the job is 

terminated. 

Make the proper matching fields 

entry in columns 61-62 and re- 

submit the job. 


System Action: 


User Response: 


RG121—FROM FILE CANNOT HAVE AN EIN COL 17 
OF FILE DESCRIPTION SPECIFICATION WHEN TO 
FILE IS A DEMAND FILE © 


Code: T—Terminal 
Specification Type: E 
Explanation: End of file, E in column 17 of the 


file description specifications, can- 
not be used for a record address 
file which is used to process a 
demand file. 

Job is terminated. 

Leave column 17 blank and re- 
submit the job. 


System Action: 
User Response: 


RG122—FIELD WAS PREVIOUSLY DEFINED WITH 
DIFFERENT LENGTH OR DECIMAL POSITIONS, 
ASSUME FIRST DEFINITION—OR FIELD IS NOW 
DEFINED AS A LOOK AHEAD FIELD 


Code: W—Warning 
Specification Type: lIorC 
Explanation: A conflicting length or number of 


decimal positions has been detected, 
or field is now used as a look ahead 
field. 

The length or decimal positions of 
the first entry are assumed, or 
second field is a look ahead field. 

If the assumption was wrong, de- 
fine the field correctly and resub- 
mit the job. 


System Action: 


User Response: 


RG123—INVALID ENTRY IN COL 7-8 


Code: T—Terminal 
Specification Type: C 
Explanation: The control level entry in columns 


7-8 is not AN, OR, LO-L9, LR, SR, 
or blank. 

The job is terminated. 

Make the proper control level entry 


System Action: 
User Response: 


in columns 7-8 and resubmit the job. 


RG124—INVALID NOT ENTRY IN COL 9, 12, OR 15; 
ASSUME N 


Code: W—Warning 
Specification Type:  C 
Explanation: The entry in column 9, 12, or 15 is 


not N or blank. 

N is assumed. 

If this assumption was wrong, leave 
column 9, 12, or 15 blank and re- 
submit the job. 


System Action: 
User Response: 


RG125—INVALID FIELD NAME OR CONSTANT FOR 
FACTOR 1 IN COL 18-27 


Code: T—Terminal 
Specification Type: C 
Explanation: The field name or constant in col- 


umns 18-27 is not specified proper- 
ly. Both must begin in column 18. 
The job is terminated. 

Make the proper field name or 
constant entry in columns 18-27. 
Resubmit the job. 


System Action: 
User Response: 


RG126—LENGTH OF TABLE/ARRAY EXCEEDS 


MAXIMUM CORE STORAGE 

Code: T—Terminal 

Specification Type:  E 

Explanation: The number of entries per table or 


array (columns 36-39) multiplied 
by the length of entry (columns 
*40-42) exceeds maximum storage. 
Job is terminated. 

Reduce the number of entries or 
the length of the entries. 


System Action: 
User Response: 


RG127—ENTRY IN COL 49-51 INVALID WITH NO 
RESULT FIELD, ASSUME 49-51 BLANK 


Code: W—Warning 
Specification Type:  C 
Explanation: This calculation specification con- 


tains a field length entry (columns 
49-51) but no result field entry 
(columns 43-48). 

Blank in columns 49-51 is assumed. 
If a result field is being described, 
place the proper entry in columns 
43-48 and resubmit the job. 


System Action: 
User Response: 


RG128—INVALID OPERATION CODE ENTRY IN COL 
28-32 


Code: T—Terminal 
Specification Type: C ; 
Explanation: Operation code is not specified 


properly. 

The job is terminated. 

Enter the proper RPG II operation 
code in columns 28-32, and resub- 
mit the job. 


System Action: 
User Response: 


RG129—FACTOR 2 FIELD NAME IN COL 33-42 


EXCEEDS SIX CHARACTERS 

Code: T—Terminal 

Specification Type: C 

Explanation: The field name or label specified in 


Factor 2 is too large. 

The job is terminated. 

Make the field name or label in 
Factor 2 (columns 33-42) six 
characters or less. Resubmit the 
job. 


System Action: 
User Response: 
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RG130-—-TO FILE MUST BE A LIMITS FILE IF FROM 
FILE IS A RECORD ADDRESS FILE, OR TO FILE MUST 
BE A RANDOM ACCESS FILE IF FROM FILE IS AN 
ADDROUT FILE 


Code: T—Terminal 


Specification Type:  E 

Explanation: The file types specified on the 
Extension specification are not 
used properly. 

Job is terminated. 

Make To file a limits file if From 
file is a record address file, or make 
To file a random access file if From 
file is an ADDROUT file. Resubmit 
the job. 


System Action: 
User Response: 


RG131—FACTOR 2 IN COL 33-42 INVALID 


Code: T—Terminal 
Specification Type: C 
Explanation: The field name or constant in col- 


umns 33-42 is not specified proper- 
ly. Entry must start in column 33. 
The job is terminated. 

Make the proper field name or 
constant entry in columns 33-42. 
Resubmit the job. 


System Action: 
User Response: 


RG132—FACTOR 2 MUST BE A FILENAME 


Code: _ -T-Terminal 
Specification Type:  C 
Explanation: For this operation the entry in 


Factor 2 must be a filename. 

The job is terminated. 

Make the proper filename entry in 
Factor 2 (columns 33-42) for this 
operation, Resubmit the job. 


System Action: 
User Response: 


RG133—NUMERIC FIELD LENGTH EXCEEDS 15; 
ASSUME 15 | 


Code: T—Terminal 
Specification Type: C 
Explanation: Length specified in columns 49-51 


for numeric field is too large. 
Length of 15 is assumed, but the 
job is terminated. 

Make the length (columns 49-51) 
15 or less. Resubmit the job. 


System Action: 


User Response: 
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System Action: 


RG134—ALPHAMERIC FIELD LENGTH EXCEEDS 256; 


ASSUME 256 

Code: T—Terminal 

Specification Type: C . 

Explanation: Length specified in columns 49-51 
for an alphameric field is too large. 

System Action: Length of 256 is assumed, but the 


job is terminated. 
-Make the length (columns 49-51) 


User Response: 
. 256 or less. Resubmit the job. 


RG135—INVALID RESULT FIELD ENTRY IN COL 43-53 


Code: T—Terminal 
Specification Type: C 
Explanation: The result field entry in columns 


43-53 is not specified properly. 

The job is terminated. 

Make the proper result field entries, 
and resubmit the job. 


System Action: 
User Response: 


RG136—FIELD LENGTH EXCEEDS CAPACITY OF 
DEVICE USED WITH DSPLY OP CODE 


Code: T—Terminal 
Specification Type: C 
Explanation: Models ___ Field to be displayed 


10 and 12: exceeds 125 characters. 
Model 15: Field to be displayed 
exceeds 35 characters. 
The job is terminated. 
Make the field length equal to or 
less than the maximum length for 
the appropriate system and re- 
submit the job. 


User Response: 


RG137—INVALID RESULT FIELD LENGTH IN COL 
49-51; ASSUME 15 FOR NUMERIC OR 256 FOR 
ALPHAMERIC FIELD 


Code: T—Terminal 
Specification Type: C 
Explanation: The field length entry in columns 


49-51 is not specified properly. 

15 is assumed for numeric fields; 
256 is assumed for alphameric 
fields. The job is terminated. 

Enter 15 or less in columns 49-51 
for numeric fields, 256 or less for 
alphameric fields. Resubmit the job. 


System Action: 


User Response: 


RG138—DECIMAL POSITION ENTRY IN COL 52 
INVALID WITH NO FIELD LENGTH ENTRY IN COL 
49-51; ASSUME BLANK 


Code: 


Specification Type: 


Explanation: 
System Action: 


User Response: 


T—Terminal 
C 
Column 52 must be blank when 
columns 49-51 are blank. 

Blank in column 52 is assumed, but 
the job is terminated. 

Leave column 52 (decimal position) 
blank when columns 49-51 (field 


length) are blank. Resubmit the job. 


RG139—INVALID DECIMAL POSITION ENTRY IN COL 


a2; ASSUME 0 


Code: 


Specification Type: 


Explanation: 
System Action: 


User Response: 


T—Terminal 

C 

The decimal position entry is not a 
number from 0 to 9 or blank. 
Zero is assumed, but the job is 
terminated. 

Make the proper decimal position 
entry (0-9 or blank) in column 52 
and resubmit the job. 


RG140—INVALID HALF ADJUST ENTRY IN COL 53; 


ASSUME H 


Code: 


Specification Type: 


Explanation: . 


System Action: 
User Response: 


W—Warning 

C | 

The half adjust entry in column 53 
is neither H nor blank.. 

H is assumed. 

If this assumption was wrong, leave 
column 53 blank and resubmit the 

job. 


RG141—DEBUG CALCULATION OPERATION USED, 
BUT DEBUG OPTION NOT SPECIFIED IN THE 


CONTROL CARD 


Code: 


Specification Type: 


Explanation: 


W—Warning 

3 

The DEBUG operation code was 
used in your calculation specifica- 
tions, but you had not specified 
the DEBUG option (1 in column 
15) i in your control card specifica- 
tions. 


System Action: 
User Response: 


DEBUG operations are not executed. 
Specify the DEBUG option (1 in 
column 15) in your control card 
specifications if you have DEBUG 
statements to be executed, and re- - 
submit the job. 


RG142—FILE AND RECORD IDENTIFICATION ENTRIES 
IN COL 7-31 AND FIELD DESCRIPTION ENTRIES IN 


COL 32-74 ON SAME LINE 

Code: T—Terminal 

Specification Type: O 

Explanation: Your field description entries in 


System Action: 


User Response: 


columns 23-74 are not specified 
one line lower than the file and 
record identification entries in 
columns 7-31. 

Blanks are assumed for columns 
7-31 and the job is terminated. — 
Place the field description entries 
(columns 32-74) one line lower 
than the file and record identifica- 
tion entries (columns 7-31). Re- 
submit the job. 


RG143—INVALID LINE TYPE ENTRY IN COL 15 


Code: 


Specification Type: 


Explanation: 


System Action: 
User Response: 


_ T—Terminal 


O 

The line type entry in column 15 is 
not H, D, T, or E. An E can be used 
only if an EXCPT operation is used 
in calculations. 

H is assumed; the job is terminated. 
Make the proper line type entry in 
column 15 and resubmit the job. 


RG144—AND OR OR LINE NOT PRECEDED BY 


RECORD IDENTIFICATION ° 

Code: T—Terminal 

Specification Type: O | 

Explanation: An AND or OR line is not preceded 


System Action: 
User Response: 


by record identification entries in 
columns 15-31. _ 

The job i is terminated. 

Make sure that record identification 
entries in columns 15-31 precede 
any AND or OR lines. Resubmit 
the job. 


Appendix E. RPG II Error Messages 355 


-RG145—INVALID ENTRIES IN COL 17-22 FOR AND ° 
LINE, ASS BLANK. 


Code: ioe 6 W-Warning 
Specification Tyee: O. 
Explanation: Columns 17-22 of an AND line 


contain space/skip entries; they 
should be blank. 

Blanks are assumed: 

To avoid this message when the job 
is run again, remove all space/skip © 
entries (columns 17-22) from an 
AND line. - 


- System Action: 
User Response: 


RG146—INVALID FILENAME OR ENTRY IN COL 15 
MISSING ON FIRST OUTPUT SPECIFICATION 


Code: = | T-Terminal 


Specification Type: O 
Explanation: Either columns 7-14 contain an in- 


valid filename or no line type entry 
was specified in column 15 of the 
specification line. 
The job is terminated. 
Check to make sure the proper 
filename entry is made in columns 
7-14 and that the proper line type 

~ entry is made in column 15. Re- ~ 
submit the job. 


System Action: 
User Response: 


RG147—INVALID NOT ENTRY IN COL 23, 26, OR 29; 
ASSUME N 


Code: pcm 
Specification Type: QO. 
Explanation: The entry in column 23, 26, or 29 


' is neither N nor blank. 
N is assumed. 
If this assumption was wrong, make 
the proper entry in column 23, 26, 
or 29 and resubmit the job. 


System Action: 
User Response: 


RG148—INVALID FIELD NAME IN COL 32-37 


Code: . .. T—Terminal 


Specification Type: O 
The field name entry in columns 


Explanation: 
32-37 is not specified properly or 

was not defined previously in input 

or calculation specifications. 

The job is terminated. 

Make the proper field name entry 

starting in column 32 and resubmit 

the job.  % 


System Action: 
User Response: 
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RG149—INVALID OR MISSING CONSTANT 


Code: . T—Terminal 
Specification Type: O 
Explanation: -The constant in columns 45-70 is 


not specified properly. 

The job is terminated. 

Make the proper entry in columns 
45-70 and resubmit the job. 


System Action: 
User Response: 


RG150—INVALID BLANK AFTER ENTRY IN COL 39; 
ASSUME BLANK 


Code: T—Terminal 
Specification Type: O — 
Explanation: The blank after entry in column 39 


is neither B nor blank. 

Blank is assumed, but the job is 
terminated. 

Make the proper entry in column 
39 and resubmit the job. 


System Action: 


User Response: 


RG151—MISSING OR INCORRECTLY SPECIFIED END 
POSITION IN COL 40-43; ASSUME END POSITION 1 


Code: T—Terminal 


Specification Type: O 
Explanation: _’ The end positions entry in columns 


40-43 is either missing or is not 
specified properly. 

The job is terminated. 

Make the proper numeric entry in 
columns 40-43; the entry must end 
in column 43, Resubmit the job. 


System Action: 
User Response: 


RG152—INVALID ENTRY IN COL 44; ASSUME BLANK 


Code: W—Warning 
Specification Type: O 
Explanation: The entry in column 44 is not P, 


B, or blank. 

Blank is assumed. 

If the assumption was wrong, make 
the proper entry in column 44 and 
resubmit the job. 


System Action: 
User Response: 


RG153—END POSITION IN COL 40-43 INVALID FOR 
*PRINT; ASSUME BLANK 


Code: W—Warning 

Specification Type: O 

Explanation: End position may not be specified 
for *PRINT. 

System Action: No action taken. 


User Response: To avoid this message the next 
time the job is run, remove the 
end position (columns 40-43) for 


the *PRINT. 


RG154—ENTRIES IN COL 7.22 INVALID FOR A FIELD 
DESCRIPTION SPECIFICATION; ASSUME BLANK 


Code: T—Terminal 
Specification Type: O 
Explanation: The file and record identification 


entries in columns 7-22 are not 
specified one line above the first 
related field description entries. 

The job is terminated. 

Place your file and record identifica- 
tion entries (columns 7-22) one 

line above the field description 
entries (columns 32-74). Resubmit 
the job. 


System Action: 
User Response: 


RG155—INVALID POSITION ENTRY IN COL 71-74; 
ASSUME BLANK . 


Code: T—Terminal 
Specification Type: IorO 
Explanation: Columns 71-74 should be 
. blank. 
System Action: Biank is assumed and job is 
terminated. 


User Response: Columns 71-74 should be blank. 


RG158—TABLE NAME INVALID FOR A FIELD NAME | 
ENTRY IN COL 53-58 


_ Code: T—Terminal 
Specification Type: I | 
Explanation: The field name entry in columns 


53-58 refers to a table. 

The job is terminated. | 

Place the proper field name entry 
in columns 53-58; the entry must 
not be a table name. Resubmit 
the job. 


System Action: 
User Response: 


RG159—MISSING RECORD IDENTIFYING INDICATOR 
IN COL 19-20 


Code: W—Warning 

Specification Type: I 

Explanation: No record identifying indicator is 
specified in columns 19-20. 

System Action: No action taken. 


Check your input specifications to 
determine whether or not a record 
identifying indicator should be 
entered in columns 19-20. If so, 
make the proper entry and resubmit 
the job. 


User Response: 


RG160—FILE NAMED IN COL 7-14 NOT SPECIFIED AS 
AN INPUT, COMBINED, UPDATE-PRIMARY, 
SECONDARY, DEMAND, OR CHAINED FILE 


Code: T—Terminal 
Specification Type: _I 
Explanation: The file named in columns 7-14 was 


not previously defined in file de- 
scription specifications as an input, 
combined, or update file with a 
designation of primary, secondary, 
demand, or chained. 

The job is terminated. 

Make sure the file named in columns 
7-14 is properly defined in file de- 
scription specifications. Resubmit 
the job. 


System Action: 
User Response: 


RG161—AND OR OR LINE INVALID WITH LOOK 


AHEAD RECORDS OR RLABL 

Code: -T-Terminal 

Specification Type: IC 

Explanation: An AND or OR line was used with 


look ahead fields or RLABL. 

The job is terminated. 

Make sure that AND or OR lines 
are not specified for look ahead 
fields (**in columns 19-20) or for 
RLABL. Resubmit the job. 


System Action: 
User Response: 
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RG162—RECORD IDENTIFYING INDICATOR IN COL 
19-20 INVALID FOR AN AND LINE 


Code: W—Warning 
Specification Type: _I 
Explanation: A record identifying indicator is in 


columns 19-20 of an AND line. 
Blanks are assumed. 

To avoid this message next time 
this job is run, leave columns 19-20 
of the AND line blank. | 


System Action: 
User Response: 


RG163—ENTRIES IN COL 17-18 AND 21-42 INVALID 
FOR LOOK AHEAD RECORD. ENTRIES IN 59-74 
INVALID FOR LOOK AHEAD FIELD 


Code: -  T Terminal 
Specification Type: _I 
Explanation: Columns 17-18 and 21-42 must be 


blank for look ahead records, col- 
umns 59-74 must be blank for look 
ahead fields. 

The job is terminated. 

Leave columns 17-18 and 21-42 
blank for look ahead records; leave 
columns 59-74 blank for look 
ahead fields. Resubmit the job. 


System Action: 
User Response: 


RG164—STACKER SELECT ENTRY IN COL 42 
INVALID FOR DEVICE SPECIFIED; ASSUME BLANK 


Code: W—Warning 
Specification Type: I 
Explanation: Column 42 must be blank for a 


| console, disk, or SPECIAL file. © 
System Action: Blank is assumed. 


User Response: 


RG165—INDICATORS IN COL 65-70 INVALID FOR A 
TABLE/ARRAY 


Code: T—Terminal 
Specification Type: I 
Explanation: - Field indicators cannot be used if 


columns 53-58 contain a table or 
array name. 
The job is terminated. 

Use the field indicators to test 
numeric fields. 


System Action: 
User Response: 


Remove the entry from column 42. . 


RG166—PLUS OR MINUS INDICATOR IN COL 65-68 
INVALID FOR ALPHAMERIC FIELD 


Code: T—Terminal 
Specification Type: I 
Explanation: A Plus or Minus indicator in col- 


umns 65-68 cannot be used to test 
an alphameric field. 
Blank is assumed; the job is 
terminated. 
Use Plus or Minus indicators only 
‘to test numeric fields. An alpha- 
meric field can only be tested for a 
blank condition (entry in columns 
69-70). Resubmit the job. | 


System Action: 


User Response: 


RG167—RECORD ID POSITION 21-38 OR TO ENTRY 
IN COL 48-51 EXCEEDS RECORD LENGTH, ASSUME 
RECORD LENGTH 


Code: T—Terminal 
Specification Type: I 
Explanation: Field location entries (columns 21- 


38 and 48-51) exceed record length 
specified in file description specifi- 
cations. 

Record length is assumed; the job 
is terminated. 

Make the field location entries 
(columns 21-38 and 48-51) equal 
to or less than the record length 
specified on file description speci- 
fications. Resubmit the job. 


System Action: 


User Response: 


RG168—FIELD NAME IN COL 53-58 IS A RESERVED 


WORD OTHER THAN PAGE 

Code: T—Terminal 

Specification Type: I 

Explanation: The field name entry in columns 


53-58 is a reserved word other 
than PAGE. 

The job is terminated. 

Make the proper field name entry 
in columns 53-58 (PAGE is the 
only RPG II reserved word that 
can be entered in these columns). 
Resubmit the job. 


System Action: 
User Response: 


RG169—CONTROL OR MATCHING FIELDS INVALID 
FOR ARRAY OR TRAILER RECORD 


Code: T—Terminal 
Specification Type: I 
- Explanation: Control or,matching fields must not 


be specified for arrays or trailer 
records. 

The job is terminated. 

Make sure no control or matching 
fields are specified for array or 
trailer records. Resubmit the job. 


System Action: 
User Response: 


RG170—MATCHING OR CONTROL FIELDS INVALID 
WITH DEMAND OR CHAIN FILES 


Code: T—Terminal 
Specification Type: I 
Explanation: Matching or control fields cannot 


be specified for demand or chain 
files. 

The job is terminated. 

Make sure that matching or control 
fields are not specified for demand 
or chain files. Resubmit the job. 


System Action: 
User Response: 


RG171—LOOK AHEAD RECORDS INVALID WITH 
DEMAND FILES, CHAIN FILES, FILES CONTAINING 
SPREAD CARDS, OR WITH THIS DEVICE 


Code: T—Terminal 
Specification Type: I 
Explanation: Look ahead records cannot be 


specified for demand files, or 

chained files, files containing spread 

cards or with this device. 

The job is terminated. 

Make sure that look ahead records 
are not'specified for demand or 

chained files, for a file containing 

‘spread cards, or with this device. 


System Action: 
User Response: 


RG172—INCORRECT SEQUENCE OF INPUT 
SPECIFICATIONS 


* Code: T—Terminal 


Specification Type: I 


Explanation: All records from one input, update, 
or combined files are not specified 
consecutively. 

System Action: The job is terminated. 


User Response: Specify all records from one input, 
update, or combined file consecu- 
tively before starting to describe 


records from a different file. 


RG173—NO FIELDS SPECIFIED FOR LOOK AHEAD 
RECORD 


Code: T—Terminal 
Specification Type: I 


Explanation: A look ahead record is specified 
. (**in columns 19-20), but no look 
ahead fields are defined (columns 
53-58). 
System Action: The job is terminated. 


User Response: Make the proper look ahead field 
specifications in columns 53-58 
for a look ahead record. Resubmit | 


the job. 


RG174—LIMITS FILE NOT PROCESSED BY R/A FILE 


OR SETLL OP CODE 

Code: T—Terminal 

Specification Type: ForC 

Explanation: A limits file is being processed 


sequentially within limits, but 
doesn’t have a record address file 
or a SETLL op code associated 
with it. . . 
Job is terminated. 

Make the proper entries for a 
limits file and resubmit the job. 


System Action: 
User Response: 
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RG175—INVALID FILE TYPE FOR SETLL OPERATION 


Code: 
Specification Type: 
Explanation: 


System Action: 
User Response: 


T—Terminal 

C 

The file to be processed by a SETLL 
operation must be a limits file not 
already specified to be processed - 
using a record address file. 

The job is terminated. _ 

Make the necessary corrections 

and resubmit the job. 


RG178—BINARY INVALID WITH CONTROL OR 


MATCHING FIELDS 


Code: 
Specification Type: 
Explanation: 


System Action: 
User Response: 


~ 


T—Terminal 

I 

Binary fields have been used as 
control or matching fields. 

The job is terminated. 

Do not specify a binary field as 
a control or matching field. 


RG180—ARRAY LENGTH EXCEEDS LENGTH 
SPECIFIED IN COL 36-42 IN EXTENSION 
SPECIFICATIONS OR NOT A MULTIPLE OF THE 
ENTRY LENGTH IN COL 40-42 IN EXTENSION 


SPECIFICATIONS 


Code: 
Specification Type: 
Explanation: 


System Action _ 
User Response: 


T—Terminal 
I F 
The array length either exceeds the 
length specified in columns 36-42 
of your extension specification, or 
is not a multiple of the length entry 
in columns 40-42 of the extension 
specification, or both. 


The job is terminated. 


Make the array length equal to or 


~ less than the length specified in 


columns 36-42 of extension speci- 
fications. The length must also be 
a multiple of the length of an array 
element (columns 40-42 of exten- 
sion specifications). Resubmit the 
job. 


RG181—INCONSISTENT FIELD LENGTHS FOR 
CONTROL OR MATCHING FIELDS OF ONE LEVEL. 
ASSUME FIRST VALID LENGTH 


Code: T—Terminal 
Specification Type: I a 
Explanation: All control or matching fields of 


one level were not assigned the 
: same field length. 
System Action: The job is terminated. 
User Response: Assign the same field length to all 
control of matching fields of the 
same level. Resubmit the job. 


RG182—INVALID SPLIT CONTROL FIELD SPECIFICA- 
TION, ASSUME PREVIOUS TOTAL LENGTH FOR THIS 
LEVEL 


Code: T—Terminal 
Specification Type: I 
Explanation: Specifications for split control 


fields of the same level are not 
_., specified on successive lines. 
System Action: The job is terminated. 
User Response: Place the specifications for split 
control fields of the same level on 
successive lines. Resubmit the job. 


RG183—CONTROL OR MATCHING FIELDS OF A 
LEVEL SPECIFIED AS BOTH ALPHAMERIC AND 
NUMERIC, ASSUME NUMERIC 


Code: . W—Warning 
Specification Type: I 


‘Explanation: All control and matching fields 


_ assigned the same level are not the 
same type (alphameric or numeric). 
System Action: Numeric is assumed for all fields 
assigned the same control or match- 
ing level. If any of the fields speci- 
. fied as alphameric are greater than 
15 characters, only a portion of 
the field will be used. 
User Response: If this assumption is wrong, make 
the proper entry and resubmit 
the job. 


RG184—ALL OF THE VALID MATCH LEVELS WERE > 
NOT REFERENCED IN LAST RECORD GROUP 


Code: T—Terminal 
Specification Type: I 
Explanation: The same number of match levels 


are not specified to all record types 
in a file. . 

The job is terminated. 

Make sure that all record types in a 
file either have no match levels or 
have the same number of match 
levels specified. Resubmit the job. 


System Action: 
User Response: 


RG186—MATCH OR CONTROL FIELDS WITHOUT 
FIELD RECORD RELATION ENTRIES MUST PRECEDE 
MATCH OR CONTROL FIELDS WITH FIELD RECORD 
RELATION ENTRIES, ASSUME PART OF A NEW 


GROUP OF MATCH FIELDS 

Code: | T—Terminal 

Specification Type: | 

Explanation: All match or control fields without 


field record relation entries (columns 
63-64) do not precede those fields 

* that do have field record relation 
entries. 
The job is terminated. 
Place all match or control fields 
without field record relation entries 
before those match or control fields 
with field record relation entries. 
Resubmit the job. 


System Action: 
User Response: 


RG187—MATCH AND CONTROL FIELDS WITH FIELD 
RECORD RELATION ENTRIES MUST BE GROUPED 
ACCORDING TO THE FIELD RECORD RELATION 
INDICATOR. ASSUME NEW GROUP OF MATCH 
FIELDS 


Code: T—Terminal 
Specification Type: 1 
When field record relation is used, . 


Explanation: 
| all match and control fields assigned 

the same indicator (columns 63-64) 

must be grouped together. 

A new group is assumed, but the 

job is terminated. 

Group all match and control fields 

with the same field record relation 

indicator together: Resubmit the 

job. 


System Action: 


User Response: 


RG188—FIELD RECORD RELATION INDICATOR 
USED IMPROPERLY WITH MATCH OR CONTROL 
FIELDS 


Code: T—Terminal 
Specification Type: ] 
Explanation: When used with match or control 


fields, the field record relation 
indicator in columns 63-64 does 
not match a record identifying 
indicator used for this file. 

The job is terminated. 

Make the field record relation in- 
dicator in columns 63-64 match a 
record identifying indicator for 
this file. Resubmit the job. 


System Action: 
User Response: 


RG189—INVALID SEQUENCE FOR CALCULATION 
SPECIFICATIONS OR SR NOT SPECIFIED IN 
COLUMNS 7-8 WITH BEGSR OR ENDSR 


Code: T—Terminal 
Specification Type: C 
Explanation: Calculation specifications are not 


specified in this order: detail, 
total, and subroutines. 

The job is terminated. 

Place calculation specifications in 
this order: detail, total, and sub- 
routines. Resubmit the job. 


System Action: 
User Response: 


RG190—INVALID SEQUENCE FOR BEGSR AND 


ENDSR OPERATION CODES 

Code: T-Terminal 

Specification Type: C 

Explanation: BEGSR operation code does not 


precede ENDSR operation code. 
The job is terminated. 

Place the BEGSR specification be- 
fore the ENDSR specification in a 
subroutine. Resubmit the job. 


System Action: 
User Response: 
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RG191—A SUBROUTINE MUST NOT CALL ITSELF 


Code: T—Terminal 
Specification Type: C 
Explanation: An EXSR specification within a 


subroutine must not call the sub- 
routine it is in. 

The job is terminated. 

If you wish to branch to another 
point within the same subroutine — 
use a GOTO and TAG operation. 
Resubmit the job. 


System Action: 
User Response: 


RG192—BRANCHING BETWEEN SUBROUTINE AND 
OTHER CALCULATIONS INVALID 


Code: T—Terminal 
Specification Type: C | . 
Explanation: Branching (GOTO and TAG) can 


only occur within a subroutine. 
You cannot branch into a subrou- 
tine or out of a subroutine. 
The job is terminated. 
When using subroutines, make sure 
branching between a subroutine and 
other calculations is not specified. 

_ Make the necessary changes and 
resubmit the job. 


System Action: 
User Response: 


RG193—BRANCHING BETWEEN DETAIL, TOTAL 
AND LR CALCULATIONS INVALID 


Code: T—Terminal 


Specification Type: C 
Explanation: Branching must be from detail 


operation to detail operation or 


from total operation to total opera- _ 


tion. It cannot be from detail to 
total operation or vice versa. 
The job is terminated. 

_ Remove any operations that at- 
tempt to branch from detail to 
total calculations or vice versa. 
Resubmit the job. 


System Action: 
User Response: 
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RG194—SETOF OPERATION INVALID FOR LR 
INDICATOR 


Code: T—Terminal 


Specification Type: C 
Explanation: The LR indicator cannot be turned 


off by the SETOF operation code. 
The job is terminated. 

Remove the SETOF LR specifica- 
tion and resubmit the job. 


System Action: 
User Response: 


RG195—LENGTH OF SEARCH WORD NOT EQUAL TO 
LENGTH OF ELEMENT IN TABLE OR ARRAY 


Code: T—Terminal 
Specification Type: C 
Explanation: ‘Length of search word (Factor 1) 


is not equal to length of element in 
table or array being searched. 

The job is terminated. 

Make the length of the search word 
(Factor 1) equal to the length of 
the element in the table or array 
being searched. Resubmit the job. 


System Action: 
User Response: 


RG196—FACTOR 2 OR RESULT FIELD INVALID FOR 
LOKUP OPERATION 


Code: | T—Terminal 
Specification Type: C 
Explanation: Either Factor 2 or Result Field is 


invalid for this LOKUP operation. 
The job is terminated. 

Specify LOKUP operation with 
table or array name in Factor 2 or 
in Result Field. Resubmit the job. . 


System Action: 
User Response: 


RG197—SEARCH TABLE HAS MORE ENTRIES THAN 
ITS RELATED TABLE 


Code: W—Warning 
Specification Type: C #3 
Explanation: The search table (Factor 2) con- 


tains more entries than its related 
table. 

No action taken. 

To avoid this message the next time 
this job is run, make the number of 
entries in the table being searched 
(Factor 2) equal or less than the 
number of entries in the related 
table (result field). 


System Action: 
User Response: 


ys 


RG198—INDICATOR ENTERED IN COL 54-57 
INVALID WITH LOKUP ON AN UNSEQUENCED 
TABLE OR ARRAY 


Code: W—Warning 
Specification Type:  C 
Explanation: You should not specify a search for 


high or low in a LOKUP operation 
on an unsequenced table or array. 
Accept indicator as used. . 
Specify the LOKUP operation on 

an unsequenced table or array for an 
equal condition only (indicator in 
columns 58-59). Resubmit the job. 


System Action: 
User Response: 


RG199—TEST FOR BOTH HIGH AND LOW INVALID 
FOR LOKUP OPERATION | 


Code: T—Terminal 
Specification Type: C 
Explanation: You must not specify a search for 


both high and low in the same 
LOKUP operation. 

The job is terminated. 

Specify the LOKUP for either high 
or low, but not both. Resubmit the 
job. 


System Action: 
User Response: 


RG200—RESULTING INDICATORS IN COL 54-59 
REQUIRED OR NOT ALLOWED FOR OPERATION 
SPECIFIED © 


Code: T—Terminal 
Specification Type: C _ 
Explanation: The resulting indicator entry in 


columns 54-59 is not specified 
properly. 
The job is terminated. 

_ Check to determine whether result- 
ing indicators are required for this 
operation. If so, make the proper 
entries (01-99, H1-H9, L1-L9, LR, 
OA-OG, OV, or KA- KN, KP, KQ), 
resu>intt the job. 


System Action: 
User Response: 


RG201—HALF ADJUST ENTRY IN COL 53 FOR 
DIVISION OPERATION FOLLOWED BY A MVR 
OPERATION: ASSUME NO HALF ADJUST 


Code: W—Warning 
Specification Type:  C_ 
. When an MVR operation follows a 


Explanation: 
. ‘f DIV operation, the DIV operation 

must not be half adjusted. 

No half adjusting is done. 

To avoid this message the next 

time this job is run, leave column 

53.(Half Adjust) blank. 


System Action: 
User Response: 


RG202—MVR OPERATION CODE DOES NOT FOLLOW 
DIV OPERATION 


Code: T—Terminal 
Specification Type: C 
Explanation: The MVR operation must immedi- 


ately follow a DIV operation. 
The job is terminated. 

Place an MVR operation immedi- 
ately after a DIV operation or re- 
move the MVR operation and re- 
submit the job. 


System Action: 
User Response: 


RG204—HALF ADJUST ENTRY IN COL 53 INVALID 
FOR OPERATION OR NUMBER OF DECIMAL 
POSITIONS SPECIFIED; ASSUME BLANK 


Code: W—Warning 
Specification Type:  C . 
Explanation: Half adjusting (H in column 53) 


cannot be done for this operation 
or half adjusting is invalid for the 
number of decimal positions speci- 

_ fied. 
Column 53 is assumed to be blank; 
therefore no half adjusting is done. 
To avoid this message the next time 
the job is run, leave column 53 
blank for this operation. 


System Action: 


User Response: 


Appendix E. RPGII Error Messages 363 


RG205—COMP, TESTZ, OR MVR ya FOR AN 
ARRAY 


Code: | T—Terminal 
Specification Type: C 
Explanation: COMP, TESTZ, and MVR must not 


be specified for an array. __ 
The job is terminated. __ 
Delete any COMP, TESTZ and 
MVR operations specified for an 
array. Resubmit the job. 


System Action: 
User Response: 


RG206—INVALID USE OF COMP OR LOKUP 


Code: T—Terminal 
Specification Type: C 
Explanation: COMP or LOKUP operation speci- 


fied improperly. 
The job is terminated. 
Make sure that Factor 1 and Factor 
2 of a COMP operation are both 
alphameric or both numeric. Make 
sure the search word and the table 
or array to be searched are both 

_ alphameric or both numeric. Re- 
submit the job. 


System Action: 
User Response: 


RG207—FIELD TYPE, ALPHAMERIC OR NUMERIC, 
INVALID FOR OPERATION SPECIFIED 


Code: T—Terminal 
Specification Type: C . 
Explanation: This operation requires a different 


field type (alphameric or numeric). 
The job is terminated. — 

Make the proper field type entry 
(alphameric or numeric) and re- 
submit the job. 


System Action: 
User Response: _ 


RG208—FORCE OPERATION Peak AT TOTAL 
TIME 


Code: “7 T—Terminal 


Specification Type: C 
Explanation: FORCE operation must be specified 


at detail time only. 

The job is terminated. 

Specify the Force operation at 
‘detail time and resubmit the job. 


System Action: 
User Response: 
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RG209—FILE TYPE INVALID FOR USE WITH THIS 


. OPERATION CODE 
Code: T—Terminal 
Specification Type: C 
Explanation: DEBUG and EXCPT must be used 


‘with an output file; FORCE must 
be used with an input or combined 
primary or secondary file. 

The job is terminated. 
Specify the proper file type or a 

- different operation code, and 
resubmit the job. 


System Action: 
User Response: 


RG211—DEBUG SPECIFIED FOR MORE THAN ONE 
OUTPUT FILE 


Code: T—Terminal 
Specification Type: C 
Explanation: The filename entered in Factor 2 is 


not the same for all DEBUG opera- 
tions. 

The job is terminated. 

Place the same filename in Factor 2 
for all DEBUG operations and re- 
submit the job. 


System Action: 
User Response: 


RG212—EXCPT OPERATION CODE SPECIFIED BUT 
NO EXCPT OUTPUT RECORDS SPECIFIED 


Code: W—Warning 
Specification Type: C 
Explanation: The EXCPT operation code is used 


but no EXCPT records are specified 

(E in column 15 of the output 

specifications). 

No action taken. 

To avoid this message, either delete 

the EXCPT operation code or speci- 
fy the proper exception records in 

output specifications. 


System Action: 
User Response: 


RG213—PROGRAM CONTAINS UNASSOCIATED OR 
MISSING EXSR/BEGSR LABEL 


Code: 
Specification Type: 
Explanation: 


System Action: 
User Response: 


T—Terminal 

C 

The label in Factor 2 of an EXSR 
operation is not the same as the 
label in Factor 1 of a BEGSR opera- 
tion, or the label in a calculation 
subroutine is specified (BEGSR) 


but is never referenced by an EXSR. 


The job is terminated. 

(1) Make the label in Factor 2 of 
the EXSR operation the same as 
the label in Factor 1 of the associa- 
ted BEGSR operation. (2) Avoid 
this message by either deleting the 
entire calculation subroutine or by 
specifying associated EXSR 
operation. 


RG214—GOTO BRANCHES TO A BEGSR NAME 


Code: 
Specification Type: 
Explanation: 


System Action: 
User Response: 


T—Terminal 

C - 

The label in Factor 2 of aGOTO 
operation must be the same as the 
label in Factor 1 of a TAG opera- 
tion. 

The job is terminated. 

Make the label in Factor 2 of a 
GOTO operation the same as the 
label in Factor 1 of a TAG opera- 
tion. Resubmit the job. — 


RG215—FACTOR 1 ENTRY IN COL 18-27 MISSING 


Code: 
Specification Type: 
Explanation: 


System Action: 
User Response: 


T—Terminal 

C 

No entry specified in Factor 1 for 
this operation. 

The job is terminated. 

Make the proper entry in Factor 1 
and resubmit the job. 


RG216—FACTOR 1 ENTRY IN COL 18-27 INVALID 


FOR THIS OPERATION 

Code: T—Terminal 

Specification Type: C 

Explanation: An entry must not be specified in 


System Action: 
User Response: 


- Factor 1 for this operation. 


The job is terminated. 
Make Factor 1 blank for this opera- 
tion and resubmit the job. 


RG217—FACTOR 2 ENTRY IN COL 33-43 MISSING 


Code: 
Specification Type: 
Explanation: 


System Action: 
User Response: 


T-—Terminal 

C 

No entry specified in Factor 2 for 
this operation. 

The job is terminated. 

Make the proper entry in Factor 2 
and resubmit the job. 


RG218—FACTOR 2 ENTRY IN COL 33-42 INVALID 


FOR THIS OPERATION 

Code: T—Terminal 

Specification Type: C 

Explanation: An entry must not be specified in 


System Action: 
User Response: 


Factor 2 for this operation. 

The job is terminated. 

Make Factor 2 blank for this opera- 
tion, and resubmit the job. 


RG219—RESULT FIELD ENTRY IN COL 43-48 


MISSING 
Code: 
Specification Type: 


Explanation: 


System Action: 


User Response: 


T—Terminal 


C3 


No entry specified in the Result 
Field for this operation. 

The job is terminated. 

Make the proper entry in the Result 
Field for this operation and resub- 
mit the job. 
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RG220—RESULT FIELD ENTRY IN COL 43-48 
INVALID FOR THIS OPERATION 


Code: T—Terminal 
Specification Type: C ' ; 
Explanation: An entry must not be specified in 


Result Field for this operation. 

The job is terminated. 

Make the Result Field blank for 
this operation and resubmit the 
job. 


System Action: 
User Response: 


RG221—RESULT FIELD LENGTH MAY NOT BE 
LARGE ENOUGH 


Code: W—Warning . 
Specification Type: C 
Explanation: The result field specified may not 


be large enough to hold the largest 
possible result obtained in the cal- 
culation operations specified. 

No action taken. 

Check to make sure the result field 
specified is large enough. If it is 
not, make it larger and resubmit 
the job. 


System Action: 
User Response: 


RG223-SUBROUTINE SPECIFICATIONS ARE THE 
ONLY CALCULATION SPECIFICATIONS 


Code: T—Terminal — 
Specification Type: C_ . . % 
Explanation: Subroutine specifications do not 


follow detail and total calculations. 
The job is terminated: | 

Place detail and total calculations 
before subroutine operations: Re- 
submit the job. 


System Action: 
User Response: 


RG224—A ZERO CONSTANT INVALID AS DIVISOR 
IN COL 33-42 | 


Code: | _ T—Terminal 
Specification Type: C . a 
Explanation: The constant entered in Factor 2 


of a DIV operation must not be 
zero. . 

The job is terminated. 

Place the proper divisor in Factor 2 
of the DIV operation and resubmit 
the job. 


System Action: 
User Response: 


4 
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RG225—CONDITIONING INDICATORS IN COL 9-17 
INVALID WITH TAG, BEGSR, ENDSR, OR RLABL 
OPERATION 7 


Code: T—Terminal 


Specification Type: C 
Explanation: Conditioning indicators must not | 


be specified in columns 9-17 for 
TAG, BEGSR, ENDSR, or RLABL 
operations. 

The job is terminated 

Make columns 9-17 blank for TAG, 
BEGSR, ENDSR, or RLABL opera- 
tions. Resubmit the job. 


System Action: 
User Response: 


RG226—A RESERVED WORD OTHER THAN PAGE 
INVALID 


Code: T-—Terminal 
Specification Type: C,1I,O 
Explanation: No reserved word other than PAGE 


can be specified as a result field. 
CONTD is a reserved word, for 
compatibility with other systems. 
The job is terminated. . 
Make sure no reserved word other 
than PAGE is specified in columns 
43-48 as the result field. Resubmit 
the job. 


System Action: 
User Response: 


RG227—RESULT FIELD IN COL 43-48 IS A LOOK 


AHEAD FIELD OR CONSTANT 

Code: . T—Terminal 

Specification Type: C 

Explanation: The result field must not be a look 


ahead field or a constant. 

The job is terminated. 

Make the proper result field entry 
in columns 43-48 and resubmit 
the job. 


System Action: 
User Response: 


RG228—INVA LID INDEX 


Code: T—Terminal 
Specification Type: C 
Explanation: Array index not specified properly. 


Index field name must contain a 
valid combination of characters. 
Index constant of field value must 
be a positive number which does 


not exceed the number of elements . 


in the array and have zero decimal 
positions. | 

The job is terminated. 

Make the proper array index entry 
and resubmit the job. 


System Action: 
User Response: 


RG229—INDEXING INVALID FOR TABLES OR FIELDS 


Code: T=Termina 


Specification Type:  C 
Explanation: Indexing must be specified for 


arrays only. 

The job is terminated. 

Remove specifications for indexing 
tables or fields. Resubmit the job. 


System Action: 
User Response: 


RG231—GOTO DOES NOT BRANCH TO A TAG 


Code: T—Terminal 
Specification Type: C 
Explanation: The label in Factor 2 of this GOTO 


operation is not the same as the 
label in Factor 1 of a TAG or 
ENDSR operation. 

The job is terminated. 

Make the label in Factor 2 of the 
GOTO operation the same as the 
label in Factor 1 of a TAG or 
ENDSR operation. Resubmit the- 
job. 


System Action: 
User Response: 


RG232—THIS NAME WAS PREVIOUSLY USED ON A 
TAG, BEGSR, OR ENDSR 


Code: T—Terminal 
Specification Type: C 
Explanation: The label in Factor 1 was previous- 


ly specified in another TAG, 
BEGSR, or ENDSR operation. 
The job is terminated. 

Make the label in Factor 1 of each 
TAG, BEGSR, and ENDSR opera- 
tion unique. Resubmit the job. 


System Action: 
User Response: 


RG233—CONFIGURATION, COLUMN 15, CONTAINS 
AN ENTRY OTHER THAN PP, S, M, OR BLANK. IF 
CONTROL/TRIBUTARY, COLUMN 17, IS BLANK, 
ASSUME SWITCHED NETWORK; IF COLUMN 17 IS 
NOT BLANK, ASSUME MULTIPOINT NETWORK 


Code: T—Terminal 
Specification Type: T 
Explanation: - The configuration entry in column 


15 of your telecommunications 
specifications is not P, S, M or 
blank. . 

The job is terminated. 

Make the proper entry (P, S, M, or 
blank) in column 15 and resubmit 
the job. 


System Action: 
User Response: 


RG234—TRANSMITTER/RECEIVER, COLUMN 16, 


DOES NOT CONTAIN T ORR 

Code: T—Terminal 

Specification Type: T — 
Explanation: ~The type of station entry in col- 


umn 16 is neither T-nor R. 

The job is terminated. 

Enter T (for a transmitter station) 
or R (for a receiver station) and 
resubmit the job. - 


System Action: 
User Response: 
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RG235—CONTROL/TRIBUTARY, COLUMN 17, 


CONTAINS A CHARACTER OTHER THAN T OR BLANK. 


IF THIS IS A SWITCHED OR POINT-TO-POINT 
NETWORK, COLUMN 15, ASSUME BLANK; IF 
MULTIPOINT, ASSUME T 


Code: W—Wanrning 
Specification Type: T 
Explanation: The type of control entry in col- 


umn 17 is neither T nor blank. 
Blank is assumed if this is a 
switched network or a point-to- 
point leased line; T is assumed if — 
this is a multipoint leased line. 
To avoid this message when this 

_ job is run again, enter T in column 
17 for tributary on multipoint 
network. Leave column 17 blank 
if switched line or point-to-point 
line is used. 


System Action: 


User Response: 


RG236—ASCII/EBCDIC, COLUMN 18, IS NOT U, A, E, | 
OR BLANK. ASSUME EBCDIC 


Code: W—Warning 
Specification Type: T 
_ Explanation: ‘The type of code entry in column 
. 18 is not Uor A for ASCII, or E or 
blank for EBCDIC. 
_ System Action: EBCDIC is assumed. 


User Response: If the assumption was wrong, make 
_the proper entry and resubmit the 


job. 


RG237—TRANSPARENT FEATURE, COLUMN 19, IS 
NOT Y, N, OR BLANK. ASSUME NO TRANSPARENCY 


Code: | W—Warning 
Specification Type: T 
Explanation: | The entry in column 19 is not Y 


for transparency or N or blank 

for no transparency. 

No transparency is assumed. 

If the assumption was wrong, make 
the proper entry and resubmit the 
job. 


System Action: 
User Response: 
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User Response: 


RG238—AUTOCALL/AUTOANSWER, COLUMN 20,IS_ | 
NOT E, S, M,.A, B, OR BLANK. COLUMNS 21-31 WILL 
BE IGNORED 


Code: T—Terminal 
Specification Type: T 
Explanation: The entry in column 20 is not E, 


S, M, A, B, or blank. 

Entries in columns 21-31 are ignored; 
the job is terminated. 

Make the proper entry in column 

20 and resubmit the job. 


System Action: 


RG239—ENTRY FOR DIAL NUMBER, COLUMNS 21-31, 
IS NOT VALID FOR THE AUTOCALL/AUTOANSWER 
ENTRY IN COLUMN 20 


Code: T-—Terminal 
Specification Type: T 
Explanation: The entry in columns 21-31 is not 


valid for the entry in column 20. 
The job is terminated. 

Enter dial number in columns 21-31 
if the entry in column 20 is E; 
enter symbolic name in columns 
21-31 if the entry in column 20 is 
S. Resubmit the job. 


System Action: 
User Response: 


RG240—IDENTIFIC ATION TYPE FOR THIS STATION, 
COLUMN 32, IS NOT S, E, OR BLANK. COLUMNS 
33-39 WILL NOT BE CHECKED 


Code: W—Warning 
Specification Type: T 
Explanation: The station identification entry in 


column 32 is not S, E, or blank. 
Columns 33-39 will not be checked 
for a valid entry. 

If the assumption is not correct, 
make the identification entry in 
column 32 (S, E, or blank) that 
properly describes this station and 
resubmit the job. 


System Action: 


User Response: 


RG241—IDENTIFICATION FOR THIS STATION, 
COLUMNS 33-39 CONTAINS AN INVALID ENTRY 
FOR THE ID TYPE INDICATED IN COLUMN 32 


Code: T—Terminal 
Specification Type: T 
Explanation: The identification entry in columns 


33-39 is invalid for the identifica- 
tion type specified in column 32. 
The job is terminated. 

Enter identification sequence in 
columns 33-39 if column 32 con- 
tains an E; enter symbolic name in 
columns 33-39 if column 32 con- 
tains an S. Resubmit the job. 


System Action: 
User Response: 


RG242—IDENTIFICATION TYPE FOR THE REMOTE 
STATION, COLUMN 40, IS NOT S, E, OR BLANK. 
COLUMNS 41-47 WILL NOT BE CHECKED 


Code: W—Warning 
Specification Type: T 
Explanation: The identification entry in column 


40 is not S, E, or blank. 
Columns 41-47 will not be checked 
for an entry. 
Make the identification entry in 
column 40 (S, E, or blank) that 
properly describes the remote 

- station. Resubmit the job. 


System Action: 


User Response: 


RG243—IDENTIFICATION FOR REMOTE STATION, 
COLUMNS 41-47, CONTAINS AN INVALID ENTRY 
FOR THE ID TYPE GIVEN IN COLUMN 40 


Code: T—Terminal 
Specification Type: T 
Explanation: The identification entry specified 


for a remote station in columns 
41-47 is invalid for the identifica- 
tion type (column 40). 

No action taken. 

Be sure the entry in columns 41-47 
is valid for the identification type 
(S, E, or blank) specified in column 
40. Resubmit the job. 


System Action: 
User Response: 


RG244—INVALID REMOTE TERMINAL SEECIIED, 
COLUMNS 48-51 


Code: T—Terminal 
Specification Type: T a 
Explanation: The entry in columns 48-51 is not 


a valid remote terminal. 

The job is terminated. 

Specify a valid remote terminal 
and resubmit the job. 


System Action: 
User Response: 


RG245—ITB, COLUMN 52, IS NOT 1OR BLANK 
ASSUME I 


Code: W—Warning 
Specification Type: T 
Explanation: The entry in column 52 is neither 


I nor blank. 

I is assumed. 

If the assumption was wrong, leave 
column 52 blank and resubmit the 
job. 


System Action: 
User Response: 


RG246—PERMANENT ERROR INDICATOR, COLUMNS 
53-54, IS INVALID 


Code: T—Terminal. | 


Specification Type: T a 
Explanation: The indicator specified in columns 


53-54 is not 01-99, L1-L9, LR, or 
H1-H9. 
The indicator is ignored and the 

- job is terminated. 
Make the proper entry in columns 
53-54 and resubmit the job. 


System Action: 


User Response: 


RG247—WAIT TIME, COLUMNS 55-57, IS INVALID. 
ASSUME SYSTEM EON FOR TIMEOUT, 180 
SECONDS 


Code: W—Warning 


Specification Type: T 
Explanation: The wait time entry specified in 


columns 55-57 is not 1-999 or 
blank. 

System convention for timeout, 
180 seconds, will be assumed. 

If the assumption was not accepta- 
ble, make the proper entry (1-999 
or blank) and resubmit the job. 


System Action: 


User Response: 
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RG248—RECORD AVAILABLE INDICATOR, 


COLUMNS 58-59, IS INVALID 

Code: T—Terminal 

Specification Type: T i 
Explanation: The record available indicator 


System Action: 


User Response: 


specified in columns 58-59 is not 
01-99, L1-L9, LR, or H1-H9. 

The indicator is ignored and the 
job is terminated. 

Make the proper entry in columns 
58-59 and resubmit the job. 


RG249—LAST FILE PROCESSED, COLUMN 60, IS NOT 


LOR BLANK 


Code: °. 


Specification Ty pe: 


Explanation: 


System Action: 
User Response: 


T—Terminal 

T . 
The last record processed entry in 
column 60 is not L or blank. 

The job is terminated. . 

Enter Lin column 60 if the BSC 
input file must be processed last; 
blank if not. Resubmit the job. 


RG250—POLLING CHARACTERS, COLUMNS 61-62, 
CONTAIN AN INVALID CHARACTER FOR THE CODE 
TYPE ENTRY IN COLUMN 18 


Code: 
Specification Type: 
Explanation: 


System Action: 
User Response: 


T—Terminal 

T 

The polling characters specified in 
columns 61-62 are invalid, or are 
missing on a line configuration that 
requires them. 

The job is terminated. 

Make the proper entry in columns 
61-62. (A list of the valid polling 


- characters is included in the JBM 


System/3 RPGII Telecommunica- 
tions Reference Manual, SC21- 
7507.)-Resubmit the job. 


RG251—ADDRESSING CHARACTERS, COLUMNS 63-64, 
ARE INVALID FOR THE CODE TYPE ENTRY IN 
COLUMN 18. THE ENTRY IS IGNORED 


Code: 


Specification Type: 


Explanation: 


System Action: 
User Response: 


T—Terminal 

T 

The addressing characters in 
columns 63-64 are invalid for the 
code type specified in column 18, 
or are missing on a line configura- 
tion that requires them. 

The job is terminated. 

Make the proper entry in columns 
63-64. (A list of the valid address- 
ing characters is included in the 
IBM System/3 RPG II Telecommuni- © 
cations Reference Manual, 

SC2 1-7507.) Resubmit the job. 


RG252—NUMBER OF BSCA FILES SPECIFIED 


EXCEEDS MAXIMUM ALLOWED 

Code: - T-—Terminal 

Specification Type: T 

Explanation: The number of BSCA files specified 


System Action: 
User Response: 


exceeds the maximum allowed. 
Refer to JBM System/3 RPG II 
Telecommunications Reference 
Manual, SC21-7507, for the 
BSCA/other file combinations 
allowed. 

The job is terminated. 

Reduce number of BSCA files in 
the program. 


RG254—REMOTE DEVICE SPECIFIED WHEN REMOTE 
TERMINAL IS BLANK OR INVALID; ASSUME 
COLUMNS 65-70 BLANK 


Code: 


Specification Type: 


Explanation: 


System Action: 
User Response: 


W—Warning 


T 

A remote device cannot be speci- 
fied if a remote terminal is not 
specified. 

Blank is assumed for columns 65-70. 
If this assumption is wrong, specify 
a valid remote terminal and re- 
submit the job. 


RG256-STACKER SELECT ENTRY IN COL 16 
INVALID FOR OUTPUT DEVICE; ASSUME BLANK 


Code: 


Specification Type: 


Explanation: 


System Action: 
User Response: 


W—Warning 

O- 

Stacker select is only allowed for 
MFCU, MFCM, or 1442 files. 
Blank is assumed. 

Leave column 16 blank. 


RG257—INVALID STACKER SELECT ENTRY IN 
COL 16; ASSUME DEFAULT STACKER 


Code: 


Specification Type: 


Explanation: 


System Action: 


User Response: 


W—Warning 

O 

Column 16 was not a blank, a 
number from 1-4 for MFCU ora 
1 or 2 for 1442. 

On MFCU assume stacker | for 
file entered in primary hopper; 
assume stacker 4 for file entered 
in secondary hopper. On 1442 
assume stacker 1. 

If the assumption is wrong, correct 
column 16 and resubmit the job. 


RG258—SPACE AND/OR SKIP ENTRIES IN COL 17-22 
INVALID FOR DEVICE 


Code: 


Specification Type: 


Explanation: 


System Action: 


User Response: 


W—Warning 

O 

The space and/or skip entries in 
columns 17-22 are invalid for the 
device. PRINT 84 requires space 
after of at least one. 

Blank is assumed for invalid space 
and/or skip entries. A space after 
of one is assumed for PRINT84. 
To avoid this message when the job 
is run again, leave columns 17-22 
blank for all devices except the con- 
sole and the printer. 


RG259—INVALID SKIP ENTRIES IN COL 19-22 OR 
GREATER THAN THE FORM LENGTH SPECIFIED, 


ASSUME BLANK 


Code: 


Specification Type: 


Explanation: 


System Action: 
User Response: 


W—Warning 

O 

The skip entries in columns 19-22 
are not specified properly or they 
exceed the form length in your 

line counter specifications. 

Blanks are assumed. 

If this assumption was wrong, make 
the proper skip entries and resub- 
mit the job. 


RG260—INVALID SPACE ENTRIES IN COL 17-18; 
ASSUME SPACE 1 AFTER OR BLANK 


Code: 


Specification Type: 


Explanation: 


System Action: 


User Response: 


W—Warning 

O 

The space entries in columns 17-18 
are not a number from 0 to 3 or 
blank. 


_If space and skip before entries are 


invalid and the skip after entry is 
blank, a space after of 1 is assumed. 
When skip and space before entries 
are valid but space after is not, 
space after is assumed blank. 

If the assumption was wrong, make 
the proper space entries in columns 
17-18 and resubmit the job. 


RG261—FETCH OVERFLOW ENTRY IN COL 16 
INVALID FOR DEVICE; ASSUME BLANK 


Code: 


Specification Type: 


Explanation: 


System Action: 


User Response: 
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W—Warning 

O 

The fetch overflow entry specified 
in column 16 is invalid for the 
device 

Blank is assumed; therefore, no 
fetch overflow is done. 

To avoid the message when the job 
is run again, specify fetch overflow 
for printer files only. 
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RG262—OVERFLOW INDICATOR INVALID FOR AN 
_ EXCPT RECORD 


Code: T—Terminal 
Specification Type: O 
Explanation: An overflow indicator must not be 


specified for an exception record 
(E in column 15). 

The job is terminated. 

Remove overflow indicators from 
exception output lines. Resubmit 
the job. 


System Action: 
_User Response: 


RG263—FETCH OVERFLOW INVALID WITH OVER- 
FLOW INDICATOR ENTERED IN COL 23-31; 
ASSUME NO FETCH 


Code: W—Warning 
Specification Type: O . 
Explanation: An overflow indicator and fetch 


overflow (F in column 16) must 
not be specified on the same out- 
put line. . 

Blank in column 16 is assumed; 
therefore, no fetch overflow is 
done. 

If this assumption was wrong, make 
the proper fetch overflow specifica- 
tion and resubmit the job. 


System Action: 


User Response: 


RG264—OVERFLOW INDICATOR USED IS NOT 


ASSIGNED TO THIS FILE 
Code: T—Terminal 
Specification Type:  O 
' Explanation: The overflow indicator specified 


was not assigned to this file in your 
file description specifications. 

The job is terminated. 

Assign the overflow indicator to this 
file in file description specifications. 
Resubmit the job. 


System Action: 
User Response: 


372 


‘ Specification Type: O 


RG265—1P INDICATOR INVALID WITH TOTAL OR 
EXCPT RECORDS 
Code: W—Warning 

First page (1P) indicator must not — 
be specified for total or exception 
records. 

No action taken. | 

To avoid this message when this 

job is run again, specify the 1P 
indicator with heading and detail 
records only. 


Explanation: 


System Action: 
User Response: 


RG266—FETCH OVERFLOW INVALID WITH 1P 
INDICATOR, ASSUME NO FETCH OVERFLOW 


Code: W—Warning 
Specification Type: O . 
Explanation: A fetch overflow line (F in column 


16) must not be conditioned by the 
1P indicator. 

No fetch overflow is assumed. 

To avoid this message when this 

job is run again, remove the 1P 
indicator from lines in which fetch 
overflow is specified; or if the | 
assumption was wrong, remove the 
1P indicator. 


System Action: 
User Response: 


RG267—1P INDICATOR INVALID FOR A COMBINED 
FILE 


Code: T—Terminal 


Specification Type: O 


Explanation: The 1P indicator must not be 
specified for records in a combined 
file. 

The job is terminated. 

Specify the 1P indicator to con- 


dition records in an output file only. 


System Action: 
User Response: 


RG268—SPECIFIED OR IMPLIED SPACE BEFORE OF 
ZERO IS INVALID FOR CONSOLE FILE. ASSUME 
SPACE BEFORE OF ONE 


Code: W—Warning 
Specification Type: O 
Explanation: The console forces one space before 


printing. A zero or blank entry in 
space before will be defaulted to 
one. 

Space before of one is assumed. 
To avoid this message specify at 
least one for Space Before. 


System Action: 
User Response: 


RG269—INVALID INDICATORS USED IN AN AND 
RELATIONSHIP WITH 1P 


Code: T—Terminal 
Specification Type: O 
Explanation: Only external indicators (U1-U8) 


can be specified in an AND relation- 
ship with the 1P indicator. 

The job is terminated. 

Specify the 1P indicator in an AND 
relationship with external indicators 
only. Resubmit the job. 


System Action: 
User Response: 


RG270—END POSITION ENTRY IN COL 40-43 FOR 
CONSTANT, EDIT WORD, FIELD, OR ARRAY 


EXCEEDS RECORD LENGTH 

Code: . T—Terminal 

Specification Type: O 

Explanation: The end position entry in columns 


40-43 exceeds the records length 
specified in your file description 
specifications. 

The job is terminated. 

Make the proper end position entry 
in columns 40-43; it must be equal 
to or less than the record length. 
Resubmit the job. 


System Action: 
User Response: 


RG271—LENGTH OF ARRAY, ARRAY ELEMENT, OR 
FIELD EXCEEDS RECORD LENGTH 


Code: T—Terminal 
Specification Type: O 
Explanation: Length specified for array, array 


element, or field exceeds the record 
length specified in your file descrip- 
tion specifications. 

The job is terminated. 

Make the proper entry; it must be 
equal to or less than the record 
length or increase the record length 
entry to handle the length. Re- 
submit the job. 


System Action: 
User Response: 


RG272—END POSITION ENTRY IN COL 40-43 FOR 
CONSTANT, EDIT WORD, FIELD, OR ARRAY TOO 
LOW 


Code: T—Terminal 
Specification Type: O 
The end position entry in columns 


Explanation: 
40-43 is too small to allow the 
first field, array, or array element 
to be written, printed, or punched 
in its entirety. 
The job is terminated. 
Make the end position entry large 
enough for the field, array, or 
array element to be written, 
printed, or punched. Resubmit 
the job. 


System Action: 
User Response: 


RG273—OUTPUT INDICATORS IN COL 23-31 MISSING 
OR ALL NEGATIVE 


Code: W—Warning 
Specification Type: O 
Explanation: No output indicators are specified 


in columns 23-31 or all those in- 
dicators specified are negative. 
Output may not be written when 
desired. 

No action taken. 

To avoid this message when this 
job is run again, specify at least 
one positive indicator to condition 
output records to ensure that out- 
put is written only when desired. 


System Action: 
User Response: 
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RG274—OUTPUT INDICATORS MISSING FOR AN AND 
OR OR LINE 


Code: W—Warning 
Specification Type: O 
Explanation: No conditioning indicators were 


specified in columns 23-31 or an 
AND or OR line. 

No action taken. 

To avoid this message when this 
job is run again, place the proper 
conditioning indicators in columns 
23-31 of the AND or OR line. 
Resubmit the job. 


System Action: 
User Response: 


RG276—INVALID EDIT CODE IN COL 38 


Code: T-Terminal 
Specification Type: O 
Explanation: The edit code specified in column 


38 is not one of the following: 

1-4, A-D, J-M, X, Y, Z, or blank. 
The job is terminated. 

Make the proper edit code entry 

in column 38 and resubmit the job. 


System Action: 
User Response: 


RG277—INVALID EDIT WORD SIZE 


Code: T—Terminal 
Specification Type: O 
Explanation: The number of replaceable charac- 


ters in this edit word (columns 
45-70) exceed the length of the 
field to be edited. 

The job is terminated. 

Make the number of replaceable 
characters in the edit word equal 
to the length of the field to be 
edited. Resubmit the job. 


System Action: 
User Response: 


RG278—EDIT CODES INVALID WITH FIELDS OTHER 
THAN UNPACKED NUMERIC FIELDS OR CONSTANTS 
OTHER THAN * OR $ 


Code: T—Terminal 

Specification Type: O 

Explanation: Edit codes cannot be specified with 
edit words or with constants other 

than § or * or with fields other 

than unpacked numeric fields. 

The job is terminated. 

Make the proper edit code entry 

and resubmit the job. 


System Action: 
User Response: 


RG279—CONSTANTS IN COL 45-70 INVALID FOR X, 
Y, AND Z EDIT CODES 


Code: T—Terminal 
Specification Type: O 
Explanation: Edit codes X, Y, and Z must not be 


specified for edit words with ‘$’ or 
** in columns 45-47, 

The job is terminated. 

Use either edit codes or edit words, 
but not both. Resubmit the job. 


System Action: 
User Response: 


RG280—FIELD LENGTH FOR Y EDIT CODE LESS 


THAN 3 OR GREATER THAN 6 

Code: W—Warning 

Specification Type: O . 

Explanation: Field edited by Y edit code is not 


from 3 to 6 characters long.’ 

If less than 3 characters long, field 
is not edited; if the field is more 
than 6 characters long, only the 
six low order digits are edited. 
Make the field to be edited by Y 
edit code 3 to 6 characters long, 
or change the edit code to prevent 
error message. 


System Action: 


User Response: 


RG281—DECIMAL POSITIONS INVALID FOR FIELD 
EDITED BY Y CODE . 


Code: T—Terminal 
Specification Type: O 
Explanation: Decimal positions must not be 


specified for field edited by Y code. 
The job is terminated. 

Specify no decimal positions for 
field edited by Y edit code, or use 

a different edit code. Resubmit 

the job. 


System Action: 
User Response: 


RG282—NAME OF FIELD TO BE EDITED, BY CODE 
SPECIFIED IN COL 38, MISSING 


Code: T—Terminal 
Specification Type: O 
Explanation: An edit code is specified in column 


38, but the name of the field to be 
edited is not entered in columns 
32-37. 

The job is terminated. 

Specify the name of the field to be 
edited in columns 32-37 and re- 
submit the job. 


System Action: 
‘User Response: 


RG283—INVALID FILE TYPE FOR OUTPUT RECORD 


Code: T—Terminal 
Specification Type: O 
Explanation: The file specified in columns 7-14 


of your output specifications is not 
a combined file, update file, output 
file, or a file associated with ADD. 
The job is terminated. 

Make sure the file specified in out- 
put specifications is a combined file, 
update file, output file, or a file 
associated with ADD. Resubmit 

the job. 


System Action: 
User Response: 


RG285—T OR E ENTRY IN COL 15 INVALID FOR 
COMBINED FILE 


Code: T—Terminal 

Specification Type: O 

Explanation: Column 15 does not contain an H 
or D for a combined file. Combined 
files cannot be written or stacker 
selected at total exception time. 

System Action: The job is terminated. 


Correct column 15 and resubmit 
the job. 


User Response: 


RG286—*PRINT INVALID FOR DEVICE 


Code: T—Terminal 
Specification Type: O 
Explanation: 


*PRINT can only be used with the 
MFCU. 

The job is terminated. 

Remove *PRINT and resubmit 

the job. 


System Action: 
User Response: 


RG287—OPERATION IN COL 40 INVALID FOR DEVICE 


Code: T—Terminal 
Specification Type: O 
Explanation: * (asterisk) in column 40 invalid 


for device. 

The job is terminated. 

Remove * (asterisk) and resubmit 
the job. 


System Action: 
User Response: 


RG288—BLANK AFTER ENTRY IN COL 39 INVALID 
WITH RESERVED WORD OTHER THAN PAGE; 
ASSUME BLANK 


Code: W—Warning 
Specification Type: O 
Explanation: Column 39 contains a B entry with 


a reserved word other than PAGE. 
Blank is assumed. 

Leave column 39 blank and resub- 
mit the job. 


System Action: 
User Response: 


RG289—*PRINT PRECEDES ALL FIELD NAMES AN 
CONSTANTS 


Code: T—Terminal 
Specification Type: O 
Explanation: *PRINT must be specified after all 


fields and constants are to be 
printed. 

The job is terminated. 

Correct the position of the *PRINT 
and resubmit the job. 


System Action: 
User Response: 


RG290—*PLACE PRECEDES ALL FIELD NAMES AND 
CONSTANTS 


Code: T—Terminal 
Specification Type: O 
Explanation: When *PLACE is used, it must be 


specified after fields which are to 
be placed in different location. 
The job is terminated. 

Specify the fields to be moved be- 
fore you specify *PLACE and re- 
submit the job. 


System Action: 
User Response: 
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RG291—INVALID ENTRIES IN COL 38, 39, OR 44-74 
FOR OUTPUT OPERATION, ASSUME BLANKS 


Code: 
Specification Type: 
Explanation: 


System Action: 


User Response: 


T—Terminal 

O 

Blank after, edit codes, edit words 
and sterling cannot be specified 
for *PRINT or *PLACE. 

Blanks are assumed; the job is 
terminated. 

Leave columns 38, 39, and 44-74 
blank for *PRINT and *PLACE. 
Resubmit the job. 


RG292—TOO MANY AND/OR LINES 


Code: . 
Specification Type: 
Explanation: 


System Action: 
User Response: 


T—Terminal 

IorO 

More than 20 AND/OR lines speci- 
fied in your input or output speci- 
fications. 

The job is terminated. 

Make the number of AND/OR lines 
specified 20 or less. Resubmit the 
job. 


RG293—BLANK AFTER SPECIFIED FOR A CONSTANT 


Code: 
Specification Type: 
Explanation: 


System Action: 
User Response: 
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W—Warning 

O 

Blank after should not be specified 
for a constant since constants will 
be blanked out whenever they are 
used. 

Blank is assumed. 

If you do not want the message to 
come out, do not specify blank 


after (B in columns 39) for constants. 


RG300—VALUE OF ARRAY INDEX EXCEEDS 
NUMBER OF ARRAY ELEMENTS 


Code: 
Specification Type: 
Explanation: 


System Action: 
User Response: 


T—Terminal 

O 

The array index specified exceeds 
the number of elements in the 
array. 

The job is terminated. 

Specify the proper array index 
value; the index must not exceed 
the number of array elements 
specified for the array in columns 
36-39 of your extension specifica- 
tions. Resubmit the job. 


RG302—BLANK AFTER ENTRY IN COL 39 INVALID 
FOR LOOK AHEAD FIELD; ASSUME BLANK 


Code: 
Specification Type: 
Explanation: 


System Action: 


User Response: 


W—Warning 

O 

Column 39 must be blank for a 
look ahead field. 

Blank is assumed. 

To avoid this message the next time 
the job is run, leave column 39 
blank for look ahead field. 


RG304—-INVALID INDICATOR OR IMPROPER USE OF 


A VALID INDICATOR 


Code: 
Specification Type: 
Explanation: 


System Action: 
User Response: 


T—Terminal 

I,C, or O 

The indicator specified is invalid 
or used improperly. 

The job is terminated. 

If the indicator is invalid, make the 
proper indicator entry (only indi- 
cators 01-99, H1-H9, L1-L9, LR, 
U1-U8, OA-OG, OV, KA-KN, KP, 
KQ can be assigned). If the indica- 
tor has been used improperly, see 
the restrictions concerning proper 
use of indicators under Operation 
Codes, Setting Indicators. 
Resubmit the job. 


RG305—INDICATOR ASSIGNED BUT NOT USED TO 


CONDITION OPERATIONS 

Code: W—-Warning 

Specification Type: I, C, or O 

Explanation: The indicator was assigned but was 


not used to condition an operation. 


System Action: 
User Response: 


No action taken. — 

Determine whether the indicator 
assigned is needed to condition any 
operation. If not, remove this 
indicator to avoid this message the 
next time this job is run. 


RG306—INDICATOR USED TO CONDITION OPERA- 


TIONS BUT NOT ASSIGNED 

Code: T—Terminal 

Specification Type: I, C, or O 

Explanation: All indicators except LR, MR, IP, 


and LO must be assigned before 
they can be used to condition 
operations. 

The job is terminated. 

Make sure the indicator is assigned 
before it is used to condition 
operations. Resubmit the job. 


System Action: 
User Response: 


RG307—FILE NAME DEFINED BUT NEVER USED. 
SPECIFICATION IS DROPPED 


Code: W—Warning 
Specification Type:  F 
Explanation: A filename was defined in columns 


7-14 but no input or output speci- 
fications exist for this file. 
Specification is dropped. 

To avoid this message when this 
job is run again, remove the file- 
name in columns 7-14 in the fields 
not used in the program. 


System Action: 
User Response: 


RG308—SEQUENCING INVALID FOR FILE WITH NO 
MATCH FIELD, ASSUME COLUMN 18 ON FILE 
DESCRIPTION SPECIFICATION BLANK 


Code: W—Warning 
Specification Type: F . 
Explanation: Sequence checking specified in 


column 18 for a file with no 
match fields 

Assume column 18 is blank. 
Leave column 18 blank for files 
with no match fields. 


System Action: 
User Response: 


RG309—SEQUENCE ENTRY IN COL 18 INVALID OR 
BLANK FOR FILES WITH MATCH FIELDS SPECIFIED, 
ASSUME FIRST VALID SEQUENCE OR A 


Code: W—Warning 
Specification Type: F 
Explanation: No sequence entry or an invalid 


sequence entry is specified in col- 
umn 18 for a file with match fields. 
For a primary file, A is assumed. 

If no valid sequence entry is speci- 
fied for a secondary file, the pri- 
mary sequence value is assumed. 

If this assumption was wrong, 
make the proper sequence entry 

(A or D) in column 18 and resub- 
mit the job. 


System Action: 


User Response: 
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RG310—EXTENSION CODE SPECIFIED IN COL 39 ON 
FILE DESCRIPTION SPECIFICATION FOR THIS FILE, 
BUT EXTENSION SPECIFICATION MISSING 


Code: 
Specification Type: 
Explanation: 


System Action: 
User Response: 


T—Terminal 

F 

(1) An extension code is specified 
(E in column 39) in your file 
description specifications, but no 
extension specifications were 
supplied. (2) An extension code 

is specified (L in column 39) in 
your file description specifications, 
but no line counter specifications 
were supplied. 

The job is terminated. 

You must either supply the proper 
extension specifications or delete 
the E or L for column 39 of your 
file description specifications if no 
extension specifications or line 
counter specificatidns are required 
for this program. Resubmit the job. 


RG311—AN EXTENSION OR LINE COUNTER 
SPECIFICATION WAS PROVIDED FOR THIS FILE 
BUT AN EXTENSION CODE WAS NOT ENTERED IN 
COL 39 ON THE FILE DESCRIPTION SPECIFICATION 


Code: 
Specification Type: 
Explanation: 


System Action: 
User Response: 


W—Warning 

F 

Extension or line specifications 
were supplied, but no extension 
code (E in column 39 of file de- 
scription) was specified. 

No action is taken. 

To avoid this message the next 
time this job is run, enter E or Lin 
column 39 for this file. 


RG312—STACKER SELECT NOT VALID WITH DUAL 


I/O; ASSUME BLANK 
Code: 


Specification Type: 
Explanation: 


System Action: 
User Response: 
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W—Warning 

I,O 

Stacker select must not be specified 
for input or output files with dual 
I/O areas. 

Blank is assumed. 

To avoid this message on the next 
run, remove the dual I/O specifica- 
tion. 


RG313—*PRINT SPECIFIED MORE THAN ONCE FOR 


A RECORD 

Code: 
Specification Type: 
Explanation: 


System Action: 


User Response: 


W—Warning . 

O | 2 

*PRINT may be used only once for 
each record. 

Extra *PRINT specifications are 
ignored. 

To avoid this message on the next 
Jun, remove the extra *PRINT 
statements. 


RG314—FIELD, TABLE OR ARRAY NAME DEFINED 


BUT NEVER USED 


Code: 
Specification Type: 
Explanation: 


System Action: 
User Response: 


W—Warning 

I, E, or C 

A name is assigned to a field, table, 
or array but the field, table, or 
array is not used in the program. 
No action taken. 

To avoid this message when this 
job is run again, remove the field 
table, or array name if it is not 
used. 


RG315—FIELD NAME USED BUT NEVER DEFINED OR 
TABLE NAME OR ARRAY ELEMENT USED AS AN 


ARRAY INDEX 


Code: 
Specification Type: 
Explanation: 


System Action: 
User Response: 


T—Terminal 

Cor O 

(1) The field name is used in calcu- 
lation or output operations but 
was not defined, or (2) a table name 
or array element is used as an array 
index. 

The job is terminated. 

(1) Be sure the field is defined be- 
fore it is used in calculation or out- 
put operations, or (2) be sure that 
the array index is not a table name 
or array element. Resubmit the job. 


RG316—INVALID DEFINITION FOR RESERVED 
WORD; ASSUME VALID DEFINITION 


Code: T—Terminal 
Specification Type: TIorC 
Explanation: The field named by one of the RPG 


II reserved words is not specified 
according to the predefined format. 
The predefined format for this re- 
served woid is assumed, but the 
job is terminated. 

Make the proper entry for the re- 
served word and resubmit the job. 


System Action: 


User Response: 


RG317—NUMBER OF DECIMAL POSITIONS 
SPECIFIED EXCEEDS FIELD LENGTH 


Code: T 
Specification Type:  I,C,orO 
Explanation: The number of decimal positions 


specified exceeds the field length. 
The job is terminated. 

Make the proper decimal position 
entry, it can be equal to or less 
than the field length. Resubmit 
the job. 


System Action: 
User Response: 


RG318—MISSING A RECORD CONDITIONED BY 1P 
AND FORMS POSITIONING SPECIFIED ON CONTROL 
CARD 


Code: W—Warning 
Specification Type: H and O 
Explanation: Répetitive 1P output for forms 


positioning is specified in your 
control card specifications but 1P 
is not used to condition an output 
record 

No action taken. 

Use 1P to condition the proper 
output record to avoid this mes- 
sage the next time this job is run. 


System Action: 
User Response: 


RG319—NO DATA FOR ALTERNATE COLLATING 
SEQUENCE, OR FILE TRANSLATION 


Code: T—Terminal 
Specification Type: H 
Explanation: Alternate collating sequence or file 


translation is specified in your 
header line, but no alternate col- 
lating sequence table or file trans- 
lation table was supplied. 

The job is terminated. 

Provide the proper tables for alter- 
nate collating sequence or file 
translation or delete the specifica- 
tions. Resubmit the job. 


System Action: 
User Response: 


RG320—INVALID ALTERNATE COLLATING 


SEQUENCE DATA RECORD 

Code: T-—Terminal 

Specification Type: Not applicable. 

Explanation: Columns 1-6 in your alternate col- 


lating sequence data records do not 
contain ALTSEQ. 

The job is terminated. 

Check your alternate collating 
sequence data records to make sure 
the data is specified properly; each 
record must contain ALTSEQ in 
columns 1-6. Resubmit the job. 


System Action: 
User Response: 


RG321—INVALID, UNDEFINED, OR TABLE FILENAME 
ON FILE TRANSLATION DATA RECORD 


Code: T—Terminal 
Specification Type: Not applicable 
Explanation: The entry in columns 1-8 of the 


file translation data record is in- 
valid, not previously defined, or is 
a table filename. 

The job is terminated. 

Make the entry in columns 1-8 of 
each file translation data record a 
filename previously defined in file 
description specifications or the _ 
characters *FILES#$ (% = blank). 
The entry must not be a table file- 
name. Resubmit the job. 


System Action: 
User Response: 
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RG322—ALTERNATE COLLATING SEQUENCE OR 
FILE TRANSLATION DATA INVALID 


Code: T—Terminal 

Specification Type: Not applicable 

Explanation: The data supplied for alternate 
collating sequence or file transla- 
tion is invalid (not 0-9 and A-F). 

System Action: The job is terminated. 


User Response: Make the data specified for alternate 


collating sequence or file translation 


consist of the characters A-F and 0-9. 


Resubmit the job. 


RG323—MULTIPLY DEFINED TABLES/ARRAYS 


Code: T—Terminal 

Specification Type: E 

Explanation: The table/array is multiply defined. 
System Action: The job is terminated. 


Make sure that all tables/arrays 
are defined only once. 


User Response: 


RG324—TOTAL LENGTH OF ALL CONTROL OR ALL 
MATCHING FIELDS EXCEEDS 144 CHARACTERS 


Code: T—Terminal 

Specification Type: I 

Explanation: The total length of all control or 
all matching fields is too large. 

System Action: The job is terminated. 


Make the total length of all match- 
ing fields (M1-M9) or all control 
fields L1-L9) equal to or less than 
144. Resubmit the job. 


User Response: 


RG325—ALL INPUT, UPDATE, AND COMBINED FILES 
CONDITIONED BY EXTERNAL INDICATORS 


Code: W—Warning 
Specification Type: I 
Explanation: When all input, update, and com- 


bined files are conditioned by ex- 
ternal indicators (U1-U8), be sure 
all indicators are not off. If they 
are all off, the job will not be done. 
No action taken. 

When all input, update, or com- 
bined files are conditioned by ex- 
ternal indicators, be sure all indica- 
tors are not off. 


System Action: 
User Response: 


‘User Response: 


RG326—COMPILE-TIME TABLES SPECIFIED NO 
DATA FOUND | 


Code: T—Terminal 

Specification Type: Not applicable 

Explanation: Compile time table specified (From 
filename in columns 11-18 of ex- 
tension specifications blank), but 
no table input records were sup- 
plied after the source program. 

System Action: The job is terminated. 


For compile time tables, supply 
the table input records immediate- 
ly after the source program. Re- 
submit the job. 


RG327—SPLIT CONTROL FIELDS SPECIFIED MAY 
NOT HAVE PARTS THAT ARE PACKED 


Code: T—Terminal 
Specification Type: _I 
Explanation: All parts of a split control field 


must be either packed or unpacked. 
The job is terminated. 

Make proper entries so that all parts 
of the split control field are either 
packed or unpacked. Resubmit the 
job. 


System Action: 
User Response: 


RG329—PACKED OR BINARY DATA NOT VALID FOR 
DEVICE 


Code: W—Warning 
Specification Type: JorO 
Explanation: Packed or binary data should be 


specified only for disk, tape, BSCA, 
MFCM, 2501, and 1442 files. 

Data errors may occur if program 

is executed. 

Specify packed or binary data for 
disk, tape, BSCA, MFCM, 2501, 
and 1442 files only. Resubmit the 
job. . 


System Action: 


User Response: 


RG330—ALPHAMERIC FIELD SPECIFIED AS 
PACKED OR BINARY 


Code: T—Terminal 
Specification Type: O | 
Explanation: Packed data cannot be specified 


for alphameric fields. 

The job is terminated. 

Specify packed data for numeric 
fields only. Resubmit the job. 


System Action: 
User Response: 


RG331—NO INPUT SPECIFICATIONS FOUND 


Code: T—Terminal 

Specification Type: - Not applicable 

Explanation: No valid input specifications are 
supplied for this job. 


System Action: 
User Response: 


The job is terminated. 
Supply valid input specifications 
and resubmit this job. 


RG332—SEQUENCE ERROR FOUND IN COMPILE 
TIME TABLE/ARRAY 


Code: T—Terminal 

Specification Type: Not applicable 

Explanation: Compile time table or array is not 
in the sequence specified in col- 
umns 45 or 57. 

System Action: The job is terminated. 


Make sure the data is in the se- 
quence specified (A or D) in column 
45 or 57. Resubmit the job. 


User Response: 


RG333—TABLE/ARRAY FULL OR NO TABLE/ 
ARRAYS FOR FOLLOWING DATA 


Code: W—Warning 
Specification Type: § Not applicable 
Explanation: Either too much data is supplied 


for the table or array or no table 
or array is defined for the data 
supplied. . 

No more data is accepted for 
tables or arrays. 

Make sure the data supplied does 
not exceed the maximum table 
size or that a table or array is de- 
fined for the data you supply. 
Resubmit the job. 


System Action: 


User Response: 


RG334—SHORT TABLE 


Code: W—Warning 
Specification Type: Not applicable 
Explanation: The number of entries supplied is 


less than the maximum number of 
entries the table can contain. 

The remaining entries are filled 
with blanks or zeros. 

None required. 


System Action: 
User Response: 


RG335—EDIT WORD SPECIFIED WITH OTHER THAN 


UNPACKED NUMERIC FIELDS 

Code: T—Terminal 

Specification Type: O 

Explanation: Edit words are allowed only with 


unpacked numeric fields. 

The job is terminated. 
Specify edit words for unpacked 
numeric fields only. Resubmit 
the job. 


System Action: 
User Response: 


RG337—INC ORRECT SPECIFICATION OF EXIT 
AND/OR RLABL STATEMENTS 


Code: T—Terminal 
Specification Type: C 
Explanation: The RLABL operation code does 


not immediately follow an EXIT 
operation; or, for SUBR89 and 
SUBR95, there is an incorrect 
number of RLABL operations; or 
the RLABL operations are coded 
incorrectly. 

Correct the errors and resubmit 
the job. 


User Response: 


RG338—SUBR MUST BE USED WITH EXIT OP CODE 


Code: . T—Terminal 
Specification Type: C 
Explanation: The entry specified in Factor 2 of 


an EXIT operation does not start 
with SUBR. . 

The job is terminated. 

Make sure the subroutine name in 
Factor 2 starts with SUBR. Resub- 
mit the job. 


System Action: 
User Response: 
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RG339—AN OUTPUT REFERENCE IS REQUIRED FOR 
EACH COMBINED OR UPDATE FILE, OR IF ADD 
IS SPECIFIED 


Code: T—Terminal 

Specification Type: F 

Explanation: The proper output specifications 
have not been specified for the 
combined or update file or file 
that has add specified. 

System Action: The job is terminated. 


Specify the proper output specifi- 
cations for the combined or update 
file. A table output specification 
will meet the requirements for a 
combined file. Resubmit the job. 


User Response: 


RG340—CONTROL/TRIBUTARY, COLUMN 17, 
CONTAINS A BLANK FOR A MULTIPOINT LINE. 
ASSUME T . | 


Code: W—Warning 

Specification Type: T 

Explanation: Column 17 was left blank for a 
multipoint line (M in column 15). 

System Action: T is assumed. 


To avoid this message when this 

job is run again, enter a T in col- 

umn 17, or change the configura- 
tion entry in column 15. 


User Response: 


RG341—CONTROL/TRIBUTARY, COLUMN 17, 
CONTAINS A T FOR A SWITCHED OR A POINT TO 
POINT NETWORK. ASSUME BLANK 


Code: W—Warning 
Specification Type: T 
Explanation: Column 17 contains a T for a 


point-to-point network (P in col- 
umn 15). 

Blank is assumed. 

To avoid this message when this job 
is run again, leave column 17 
blank, or change the configuration 
entry in column 15. 


System Action: 
User Response: 
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RG342—TRANSPARENT MODE IS SPECIFIED, 
COLUMN 19, WHEN ASCII CONTROL CHARACTERS, | 
COLUMN 18, ARE TO BE USED 


Code: 
Specification Type: 
Explanation: 


System Action: 
User Response: 


T—Terminal 

T 

The transparent mode cannot be 
specified on an adapter using 
ASCII data link characters. 

The job is terminated. 

Make the proper entry in column 
19 and resubmit the job. 


RG343—AUTOCALL/AUTOANSWER, COLUMN 20, IS 
NOT BLANK FOR NON-SWITCHED NETWORK 


Code: 
Specification Type: 
Explanation: 


System Action: 
User Response: 


T—Terminal 

T 

Column 20 contains an entry for a 
network that is not switched. 

The job is terminated. 

Leave column 20 blank for a net- 
work that is not switched. Resub- 
mit the job. 


RG344—SYMBOL FOR DIAL NUMBER, COLUMNS 


21-31, IS AN ARRAY 


Code: 
Specification Type: 
Explanation: 


System Action: 
User Response: 


T—Terminal 

T 

An array name was used as the dial 
number. 

The job is terminated. 

Enter the table element or field 
name to be used as the dial number 
in columns 21-31. If you want to 
use an array element as the dial 
number, you must use calculation 
specifications to move the contents 
of the array element into the field 
you specify in columns 21-31. Re- 
submit the job. 


-RG345—FIELD OR TABLE HOLD AREA FOR THE 
DIAL NUMBER WAS NOT DEFINED AS NUMERIC 


Code: 
Specification Type: 
Explanation: 


System Action: 
User Response: 


T—Terminal 

T 

The field or table hold area for the 
dial number specified in columns 
21-31 was not defined as numeric. 
The job is terminated. 

Define the field or table hold area 
for the dial number specified in 
columns 21-31 as numeric. Resub- 
mit the job. 


RG346—COLUMN 32 IS NOT BLANK FOR A NON- 


SWITCHED NETWORK 

Code: T—Terminal 

Specification Type: T  — 

Explanation: Column 32 was not left blank for a 


System Action: 
User Response: 


non-switched network. 

The job is terminated. 

Leave column 32 blank for a non- 
switched network and resubmit the 
job. 


RG347—IDENTIFICATION FOR THIS STATION, 
COLUMNS 33-39, CONTAINS AN ARRAY . 


Code: 
Specification Type: 
Explanation: 


System Action: 
User Response: 


T—Terminal 

T 

An array name was used as the 
station identification. 

The job is terminated. 

Enter the table element or field 
name to be used as the station 
identification in columns 33-39. 
If you want to use an array element 
as the station identification, you 
must use calculation specifications 
to move the contents of the array 
element into the field you specify 
in columns 33-39. Resubmit the 
job... 


RG348—COLUMN 40 IS NOT BLANK FOR A NON- 


SWITCHED NETWORK 

Code: T—Terminal 

Specification Type: T 

Explanation: Column 40 was not left blank for 


System Action: 
User Response: 


a non-switched network. 

The job is terminated. 

Leave column 40 blank for a non- 
switched network and resubmit 
the job. 


RG349—IDENTIFICATION FOR THE REMOTE STATION, 
COLUMNS 41-47, CONTAINS AN ARRAY 


Code: 
Specification Type: 
Explanation: 


System Action: 
User Response: 


T—Terminal 

T 

An array name was used as the 
remote station identification. 

The job is terminated. 

Enter the table element or field 
name to be used as the remote 
station identification in columns 
41-47. If you want to use an array 
element as the remote station 
identification, you must use calcu- 
lation specifications to move the 
contents of the array element into 
the field you specify in columns 
41-47. Resubmit the job. 


RG350—RECORD AVAILABLE INDICATOR IS 
PRESENT ON TRANSMIT FILE, OR IN A PROGRAM 
WITH ONLY 1 BSCA FILE. INDICATOR IS DROPPED 


Code: 
Specification Type: 
Explanation: 


System Action: 
User Response: 


W—Warning 

T 

A record available indicator was 
specified for a transmit file or in a 
program which has only one BSCA 
file. 

The indicator is ignored. 

Remove the record available indica- 
tor or define the other BSCA file if 
a transmit interspersed with a re- 
ceive program is desired. Resubmit 
the job. 
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RG351—LAST FILE PROCESSED, COLUMN 60, IS NOT 
BLANK ON A TRANSMIT FILE OR A PRIMARY INPUT 
FILE. THE ENTRY IS IGNORED 


Code: W—Warning 


Specification Type:  T 
Explanation: L was entered in column 60 for a 


transmit file or for a primary output 
file. 

The entry is ignored. 

Remove the L from column 60 if 
the file is a transmit file. If it is a 
primary input file, remove the L or 
change the file designation to 
secondary. Resubmit the job. 


System Action: 
User Response: 


RG352—POLLING CHARACTERS WERE GIVEN ON 
OTHER THAN A TRANSMIT FILE ON A MULTIPOINT 
NET WORK: THE ENTRY IS IGNORED 


Code: W—Warning 
Specification Type: T 
Explanation: Polling characters are specified in 


columns 61-62 for a file other than 
a transmit file on a multipoint net- 
work, 

The entry in columns 61-62 is 
ignored. 

To avoid this message when this 
job is run again, remove the entry 
from columns 61-62. 


System Action: 


User Response: 


RG353—THERE IS AN ENTRY IN THE ADDRESSING 
CHARACTERS, COLUMNS 63-64, ON A FILE THAT IS 
NOT A MULTIPOINT RECEIVER FILE. THE ENTRY 
Is IGNORED 


Code: W—Warning 
Specification Type: T 
Eapanton Addressing characters are specified 


in columns 63-64 for a file ‘that is 
not a multipoint receiver file. 

The entry in columns 63- 64 i is 
ignored. 

To avoid this message when this 
job is run again, remove the entry 
from columns 63-64. 


System Action: 


User Response: 
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RG354—CORRESPONDING FILE DESCRIPTION SPEC 
FILE IS NOT A BSC FILE 


Code: T—Terminal 
Specification Type: T 
Explanation: A BSC device entry was not made 


for this file on the File Description 
sheet. . 

The job is terminated. _ 

Make a BSC device entry for this 
file on the File Description sheet. 
Resubmit the job. 


System Action: 
User Response: 


RG355—A CONVERSATIONAL FILE WAS DEFINED 
WHEN NO CONVERSATIONAL FILE IS ALLOWED 


Code: T—Terminal 
Specification Type: T 
Explanation: A conversational file is not allowed 


with 2770/2780. 

The job is terminated. 

Correct the telecommunications 
specification and resubmit the job. 


System Action: 
User Response: 


RG356—PACKED FIELD OR BINARY FIELD 
SPECIFIED IN A FILE WITHOUT THE TRANSPARENT 
FEATURE 


Code: T—Terminal 
Specification Type: T 
Explanation: A packed or binary field was speci- 


fied for a file that does not have 
the transparent feature. 

The job is terminated. 

Be sure packed or binary fields are 
only specified for files with the 
transparent feature. Resubmit the 
job. 


System Action: 
User Response: 


RG357—THE FILE CORRESPONDING TO THIS 
TRANSMITTER SPECIFICATION IS NOT A COMBINED 
OR AN OUTPUT FILE ON THE FILE DESCRIPTION 
SPECIFICATION 


Code: T—Terminal 
Specification Type: T 
Explanation: The transmitter file was not de- 


fined as a combined or output file 
on the File Description sheet. 

The job is terminated. 

Define the transmitter file as a 
combined file or an output file on 
the File Description sheet. Resub- 
mit the job. . 


System Action: 
User Response: 


RG358—CORRESPONDING FILE DESCRIPTION SPEC 
FILE IS NOT DEFINED AS A COMBINED OR AN 
INPUT FILE FOR THIS RECEIVE FILE 


Code: T-Terminal 

Specification Type: T 

Explanation: © The receive file was not defined on 

. the File Description sheet as a com- 
bined file or as an input file. — 

System Action: The job is terminated. 


Define the receive file as a com- 
bined file or as an input file on the 
File Description sheet. Resubmit 
the job. 


User Response: 


RG359—BLOCKED RECORD DEFINED FOR A FILE 
WITH CONVERSATIONAL RESPONSES. ASSUME NO 
BLOCKING 


Code: W—Warning 

Specification Type: T 

Explanation: Blocked records must not be de- 
fined for a file with conversational 
responses. 

System Action: No blocking is assumed. 


User Response: To avoid this message when this 
job is run again, remove the 


blocked records specification. 


RG360—THERE IS NO TELECOMMUNICATIONS SPEC 
FOR A FILE DEFINED AS A BSCA FILE ON THE FILE 


DESCRIPTION SPECS 


Code: 
Specification Type: 
Explanation: 


System Action: 
User Response: 


T—Terminal 

T 

No telecommunications specifica- 
tions were supplied for a file that 
was described as a BSCA file on » 
the File Description sheet. 

The job is terminated. 

Supply the proper telecommunica- 
tions specifications and resubmit 
the job. 


RG361—LOOK AHEAD FIELDS SPECIFIED FOR BSC 


FILE 


Code: 
Specification Type: 
Explanation: 


System Action: 
User Response: 


T—Terminal 

T 

Look ahead fields are not allowed 
for a BSC file. 

The job is terminated. 

Remove the look ahead specifica- 
tion for BSC file and resubmit the 
job. 


RG362—MATCHING FIELDS DEFINED ON A TRANSMIT 
FILE WITH CONVERSATIONAL RESPONSE : 


Code: 
Specification Type: 
Explanation: 


System Action: 
User Response: 


T—Terminal 

T 

Matching fields are not allowed for 
a transmit file with conversational 
responses. _ 

The job is terminated. 

Remove the matching fields 
definition for transmit file with 
conversational responses. 
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RG363—MATCHING FIELDS DEFINED FOR A FILE 


DESIGNATED TO BE THE LAST FILE PROCESSED IN © - 


COLUMN 60 OF THE TELECOMMUNICATIONS SPEC 


Code: T—Terminal 

Specification Type: T . 

Explanation: Matching fields were defined for a 
file designated as the last file to be 
processed (L in column 60). 

System Action: The job is terminated. 


Remove the matching fields 
definition if the file was the last 
one to be processed, or remove the 
Lentry in column 60. Resubmit 
the job. 


User Response: 


RG364—FOR A TRANSMIT THEN RECEIVE BSCA 
PROGRAM, IF END-OF-FILE IS SPECIFIED FOR ANY 
INPUT FILE, E IS ASSUMED IN COLUMN 17 OF THE 
BSCA INPUT FILE 


Code: W—Warning 

Specification Type: T 

Explanation: E was entered in column 17 of some 
input files, but not for the BSCA 
file which has an L in column 60 of 
the Telecommunications sheet. 

System Action’ E (EBCDIC) is assumed if end of 


file (E in column 17 of the File 
Description sheet) is specified for 
any input file the program uses. 
If the assumption was wrong, re- 
move the L from column 60 or 
make the proper end of file entry 
on the Input sheet. Resubmit the 
job. 


User Response: 


RG365—ITB IS SPECIFIED ON A FILE WITHOUT 
BLOCKED RECORDS. ITB IS DROPPED 


Code: W—Warning 

Specification Type: T 

Explanation: Intermediate block check (ITB) | 
was specified for a file which does 
not have blocked records. 

System Action: The intermediate block check 


specification (I in column 52) is 
ignored. 

To avoid this message when this 
job is run again, remove the I 
from column 52 or define blocked 
records. Resubmit the job. 


User Response: 
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RG366—AUTOCALL/AUTOANSWER, COLUMN 20, IS 
BLANK FOR A SWITCHED NETWORK 


Code: T—Terminal 

Specification Type: T 

Explanation: Column 20 was left blank for a 
switched network. 

System Action: The job is terminated. 


Make the proper entry (M, E, S, A, 
or B) in column 20 for a switched 
network. 


User Response: 


RG367—A TRANSMIT WITH CONVERSATIONAL 
RESPONSE FILE IS USED WITH FORCE OR READ OP 


CODE OR AS A PRIMARY FILE 

Code. T—Terminal 

Specification Type:  T 

Explanation: (1) Neither the FORCE nor the 


READ operation code can be 
used with a transmit file which 
has conversational responses. 

(2) A transmit file with conversa- 
tional responses cannot be a 


| primary file. 
System Action: The job is terminated. 
User Response: Remove the FORCE or READ 


operation code or change the file 
designation from primary. Resub- 
mit the job. 


RG368—THE FIELD OR TABLE HOLD AREA USED 
FOR A STATION IDENTIFICATION, COLUMNS 33-39 
OR COLUMNS 41-47, IS MORE THAN FIFTEEN 
CHARACTERS IN LENGTH, OR DIAL NUMBER IS 


MORE THAN TWELVE DIGITS 

Code: T—Terminal 

Specification Type: T 

Explanation: Either the field or table hold area 


used for a station identification 
(columns 33-39 or 41-47) contains 
more than 15 characters, or the 

dial number (columns 21-31) con- 
tains more than 12 digits. 

The job is terminated. 

Be sure that the field or table hold 
area used for a station identification 
is numeric and from 2 to 15 charac- 
ters long. If you specify a dial num- 
ber, be sure it is not more than 12 

° characters long. Resubmit the job. 


System Action: 
User Response: 


RG369—WARNING: ONLY ONE I/O AREA WAS 
SPECIFIED ON A NON-CONVERSATIONAL FILE. 


THROUGHPUT MAY BE SLOW 

Code: W—Warning 

Specification Type: T 

Explanation: Because only one I/O area is speci- 


fied for a non-conversational file, 
processing time is likely to be slow. 
No action taken. 

To avoid this message when the job 
is run again, specify dual I/O areas 
if the program size permits. 


System Action: 
User Response: 


RG370—THE LINE CONFIGURATION AND LINE 
CONTROL ENTRIES, COLUMN 15 OR 17-47, ARE 
NOT THE SAME ON EACH TELECOMMUNICATIONS 
SPEC 


Code: T—Terminal 
Specification Type: T 
Explanation: The line configuration and line con- 
| trol entries (column 15 or 17-47) 
are not the same for each BSC file. 
System Action: The job is terminated. 


Make the same entries in columns 
15 and 17-47 for each BSC file in 
the program. Resubmit the job. 


User Response: 


RG371—WARNING: THE STATION IDENTIFICATION, 
COLUMNS 33-39 OR 41-47, HAS BEEN DEFINED AS 
ONLY ONE CHARACTER IN LENGTH. THE 
CHARACTER WILL BE DUPLICATED SO A TWO 
CHARACTER IDENTIFICATION WILL BE USED 


Code: 


W—Warning 
Specification Type: T 
Explanation: The station identification entry 
(columns 33-39 or 41-47) was 
specified as a 1-character field. 
System Action: The character is duplicated to pro- 


vide a two-character identification 
field. 

If the assumption was wrong, specify 
a station identification which is at 
least 2 characters, but no more than 
12 characters long. Resubmit the 
job. 


User Response: 


User Response: 


RG372—A B IN COLUMN 37 OF THE CONTROL CARD 
IS AN INVALID ENTRY IN A BSCA PROGRAM 


Code: T-—Terminal 
Specification Type: H 
Explanation: A Bentry must not be specified in 


column 37 of the control card 
specifications for a BSCA program. 
The job is terminated. 

Remove the B entry from column 
37 of the control card specifica- 
tions and resubmit the job. 


System Action: 
User Response: 


RG373—T HE SAME FILENAME WAS GIVEN ON TWO 
TELECOMMUNICATIONS SPECS 


Code: T—Terminal 

Specification Type: T 

Explanation: A BSCA file must not have multiple 
definitions. 

System Action: The job is terminated. 


User Response: Specify a unique filename on each 
Telecommunications sheet used in 


this program. Resubmit the job. 


RG374—ENTRY IN COL 16 INVALID 


Code: W—Warning 
Specification Type:  F 
Explanation: The entry in column 16 of the file 
description specifications is not P, 
S, C, R, T, D, or blank. 
System Action: Blank is assumed if the file is an 


output file; otherwise, S is assumed. 
If the assumption is wrong, make 
the proper entry in column 16 and 
resubmit the job. 


RG375—ID IN COL 75-80 OF CONTROL CARD MUST 
NOT BE BLANK WHEN C IS SPECIFIED IN COL 10, 
ASSUME BLANK IN COL 10 


Code: W—Wanrning 
Specification Type: H 


Explanation: A C is specified in column 10 of 
. | your control card specifications, 
but no program identification is 
specified in columns 75-80. 
System Action: Column 10 is assumed to be blank. 


User Response: When C is specified in column 10 
of your control card specification, 
place the proper program name in 


columns 75-80. Resubmit the job. 
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RG376—INVALID NAME IN COLS 75-80 OF CONTROL 
CARD, ASSUME BLANK 


Code: W—Warning 

Specification Type: H 

Explanation: . The entry in columns 75-80 of 
your header line is neither a valid 
RPG program name nor blanks. 

System Action: Blanks are assumed. 


User Response: If this assumption was wrong, make 
the proper program name entry and 


resubmit the job. 


RG377—RAF, COLUMN 31, IS NOT ALLOWED ON A 
BSCA FILE 


Code: T—Terminal 

Specification Type: F 

Explanation: _ A BSCA file cannot be specified as 
a record address file. 

System Action: The job is terminated. 


Remove the record address file 
specification for a BSCA file and 
resubmit the job. 


User Response: 


RG378—NO LINE COUNTER SPECIFICATION FOR THIS 
BSCA FILE, ASSUME PAGE SIZE-66, OVERFLOW 
LINE-60 


Code: W—Warning 

Specification Type: T 

Explanation: Entries must be specified if the 
page size and overflow line differ 

' from assumed values. 

System Action: Page size of 66 is assumed; overflow 


line of 60 is assumed. 
Verify that page size of 66 is 
correct for this job. 


User Response: 


RG379—MULTI-POINT INVALID WITH 2770 OR 2780 


Code: _T—Terminal 

Specification Type: T 

Explanation: Column 15 must be P, S, or blank. 
System Action: The job is terminated. 


Correct column 15 and resubmit the 
job. 


User Response: 
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RG380—2770 AND 2780 CANNOT BE SPECIFIED IN . 
THE SAME PROGRAM . 


Code: T—Terminal 

Specification Type: T 

Explanation: Both 2770 and 2780 have been 
specified in the same job. 

System Action: The job is terminated. 


User Response: Specify either 2770 or 2780 but 


not both. 


RG381—INVALID DEVICE SPECIFIED FOR THE 


REMOTE TERMINAL USED 

Code: T—Terminal 

Specification Type: T 
Explanation: Device specified in columns 65-70 


is not a valid remote device. 
The job is terminated. 
Specify a valid device for the 
remote terminal used. 


System Action: 
User Response: 


RG382—INVALID REMOTE DEVICE FOR FILE TYPE 
SPECIFIED . 


T—Terminal 


Code: 

Specification Type: T 

Explanation: An output device was specified for 
an input file or an input device was 
specified for an output file. 

System Action: The job is terminated. 


User Response: Specify a valid remote device for 
the type of operation being per- 


formed and resubmit the job. 


RG383—ITB AND TRANSPARENCY SPECIFIED FOR 
2770. ITB IS DROPPED. 


Code: W—Warning 
Specification Type: T » oS 
Explanation: When 2770 is specified, specify . 


either ITB (column 52) or trans- 

' parency (column 19) but not both. 
Blank is assumed for column 52 
(ITB) 

Verify that the assumption is 
correct for this job. 


System Action: 


User Response: 


RG388—FACTOR 1 MUST BE EITHER A FIELD NAME 
OR A LITERAL WHEN USED WITH THIS OPERATION 


Code: T—Terminal 

Specification Type: C 

Explanation: Factor 1 can only be a field name or 
a literal when the DEBUG or SETLL 
operation is specified. 

System Action: The job is terminated. 


User Response: Make Factor 1 either a field name 


or a literal and resubmit the job. 


RG390—SEQUENCE CHECKING IS NOT PERFORMED 


ON EXECUTION TIME ARRAYS 

Code: W—Warning 

Specification Type: E 

Explanation: Sequence must be specified if high 


or low LOKUP is to be done; 
however, no sequence checking is 
done at input time. 

A sequenced array is assumed. 

Be sure the array is in ascending 
or descending sequence. 


System Action: 
User Response: . 


RG391—A FIELD WITH A LENGTH GREATER THAN 
8 CHARACTERS CANNOT BE USED IN FACTOR 1 


WITH DEBUG OPERATION 

Code: T—Terminal 

Specification Type: C 

Explanation: The length of a Factor 1 field 


cannot be greater than eight 
characters when a DEBUG opera- 
tion is specified. 

The job is terminated. 

Limit the length of the Factor 1 
field to eight characters. Resubmit 
the job. 


System Action: 
User Response: 


RG392—LAST ENTRY IN ONE OR MORE COMPILE 
TIME TABLE/ARRAYS WAS BLANK 


Code: W—Warning 

Specification Type: E | 

Explanation: The compile time table/array con- 
tains fewer entries than the number 
of entries specified in columns 
36-39 of the Extension specifica- 
tions. 

System Action: A warning message is given. 


User Response: If the assumption was wrong, 
review your compile time tables/ 


arrays and fill the table. 


RG394—‘ADD’ IN COL 16-18 NOT ALLOWED ON 
AND/OR LINES, ASSUME BLANK 


Code: T—Terminal 
Specification Type: O 
Explanation: ADD was specified in columns 


16-18 of an AND/OR line in out- 
put specifications. 

Blank is assumed, but the job is 
terminated. 

Remove the ADD entry from col- 
umns 16-18 of the AND/OR line 
and resubmit the job. 


System Action: 


User Response: 


RG397—FILE DESCRIBED AS ‘ADD’ TYPE FILE, EACH 
OUTPUT LINE MUST HAVE ‘ADD’ IN COL 16-18. | 
ASSUME ‘ADD’ 


Code: W—Warning 
Specification Type: O 
Explanation: The ADD function (A in column 


66) was specified in the file descrip- 
tion specifications for this file, but 
ADD was not specified in columns 
16-18 of the Output sheet for each 
record type output line to be 
written. 

ADD in columns 16-18 is assumed. 
To avoid this message the next time 
this job is run, remove the A from 
column 66 of the file description 
specifications or specify ADD in 
columns 16-18 of the output speci- 
fications for each record type output 
line to be written. . 


System Action: 
User Response: 
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RG398—COLS 54-59, INVALID FOR DEVICE, OR 
WRONG ENTRY, ASSUME BLANK 


Code: T—Terminal 
Specification Type: F 
Explanation: Columns 54-59 contain an entry for 


a file which was not assigned to a 
SPECIAL device (SPECIAL in col- 
umns 40-46). 

Blank is assumed, but the job is 
terminated. 

Leave columns 54-59 blank for file 
not assigned to a SPECIAL device. 
Resubmit the job. 


System Action: 


User Response: 


RG399—INVALID ENTRY IN COLS 54-59 


Code: T—Terminal 
Specification Type: F 
- Explanation: The entry in columns 54-59 of your 


file description specifications for a 
SPECIAL file is neither SUBRxx 
(x = any alphabetic character) nor 
SRyzzz (y = one of 15 valid charac- 
ters; z = one of 16 valid characters). 
The job is terminated. 

Enter the name of the user-written 
subroutine (SUBRxx) or IBM- 
written subroutine (SRyzzz) which 
will perform the input/output 
operations for the SPECIAL file. 
Resubmit the job. 


System Action: 
User Response: 


RG400—INVALID MODE OF PROCESSING ENTRY IN 
COLUMN 28 


Code: T—Terminal 
Specification Type: F 
Explanation: The entry in column 28 is not R, 


L, or blank. 

R is assumed for valid file type or 
mode of processing; the job is 
terminated. . 

Make proper mode of processing 
entry in column 28 and resubmit 
the job. 


System Action: 


User Response: 
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RG401—ONLY ONE TABLE/ARRAY PER FILENAME 


ALLOWED FOR THIS DEVICE 
Code: T—Terminal 
Specification Type: E 
Only one table or array can be 


Explanation: 
specified per file (except for a 

card file). 

The job is terminated. 

Specify only one table or array per 

file (except for card files) and re- 

submit the job. 


System Action: 
User Response: 


RG403—INVALID LENGTH OF KEY FIELD IN 


COLUMN 29-30, ASSUME 03° 
Code: T—Terminal 
Specification Type: F 
The length of key field entry in 


Explanation: 
columns 29-30 is not specified 

properly. The entry must be 29 or 

less for unpacked keys, 8 for 

packed keys. , 

03 is assumed, but the job is 

terminated. . 

Make the length of key field entry 

in columns 29-30 a valid key length. 

Resubmit the job. 


System Action: 


User Response: 


| RG404—INVALID RECORD ADDRESS TYPE ENTRY 


IN COLUMN 31, ASSUME A 

Code: T—Terminal 

Specification Type: F 

Explanation: _ The entry in column 31 is not A, 


I, P, or blank, or is incorrect for 

the file type specified. 

A is assumed; the job is terminated. 
Make the proper record address type 
entry in column 31 and resubmit 
the job. 


System Action: 
User Response: 


RG405—INVALID KEY START LOCATION ENTRY IN 
COLUMNS 35-38, ASSUME 1 


Code: T—Terminal 
Specification Type:  F 
_ Explanation: Columns 35-38 do not contain a 


number from 1-4096 for an 
indexed file. 

1 is assumed; the job is terminated. 
Make the proper key start location 
entry in columns 35-38 and re- 
submit the job. : 


System Action: 
User Response: 


RG406—INVALID CORE INDEX ENTRY IN COLS 
60-65, ASSUME BLANK 


* Code: — W—Warning 
Specification Type: F 
Explanation: Columns 60-65 contain an 
incorrect number. 
System Action: Blank is assumed. 


If this assumption was wrong, make 
the proper core index entry in col- 
umns 60-65 and resubmit the job. 


User Response: 


RG407-INVALID FILE ADDITION OR UNORDERED 
ENTRY IN COLUMN 66, ASSUME A 


Code: T—Terminal 
Specification Type: F 
Explanation: The file addition or unordered load 


entry in column 66 is not A, U, or 
blank. 

A is assumed; the jab is terminated. 
Make the proper file addition or 
unordered load entry in column 66 
and resubmit the job. 


System Action: 
User Response: 


RG408—NUMBER OF EXTENTS ENTRY IN COLS 
68-69 IS INVALID OR NOT ALLOWED WITH DEVICE, 
ASSUME BLANK 


Code: T—Terminal 


Specification Type:  F 
Explanation: Not allowed for device other than 


disk or for disk using shared I/O. 
For disk not using shared I/O, entry 
must be 01-50. 


System Action: Blank is assumed; the job is 
terminated. . 

User Response: Make the proper entry in columns 
68-69 and resubmit the job. 


RG409—ENTRY OF K MADE IN COLUMN 31 FOR 
RECORD ADDRESS TYPE, ASSUME A 


Code: W—Wanrning 
Specification Type: F 
Explanation: An entry of K is not allowed in 


column 31 for record address type. 
A is assumed. 

If this assumption was wrong, make 
the proper entry in column 31 and 

resubmit the job. 


System Action: 
User Response: 


RG410—EXTENSION SPECIFICATION SHEET BLANK 


Code: T—Terminal 
Specification Type: | Not applicable 
Explanation: An E was specified in column 39 


of a File Description sheet, but no 
Extension specifications were 
entered. 

The job is terminated. 

You must supply the proper exten- . 
sion specifications and resubmit the 
job. | 


System Action: 
User Response: 


RG411—RESERVED COLUMNS 71-74 ARE NOT 
BLANK 


Code: W—Warning 
Specification Type: T 
Explanation: Columns 71-74 on the Telecom- 


munications Specifications are 
reserved and should be blank. 
Blanks are assumed. 

Leave columns blank. 


System Action: 
User Response: 


RG450—BUFOFF SPECIFIED ON AN OUTPUT FILE 


Code: T—Terminal 

Specification Type: F 

Explanation: System/3 cannot create tapes with 
a block prefix. 

System Action: BUFOFF entry is ignored; job is 
terminated. 

User Response: Remove BUFOFF and resubmit 
the job. | | 
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RG451—CONTINUATION (K IN COL 53) INVALID FOR 
DEVICE 


Code: T—Terminal 
Specification Type: F 
Explanation: Continuation is only allowed on 


tape files, or SPECIAL files. 
Continuation is ignored; job is 
terminated. 

Remove the continuation (K in 
column 53) and resubmit the job. 


System Action: 


User Response: 


RG452—ENTRY IN COL 54-59 OF A CONTINUATION 
CARD IS INVALID OR MISSING 


Code: T—Terminal 
Specification Type: F 
Explanation: For a tape file, the only valid entries 


in columns 54-59 of a continuation 
card are ASCII and BUFOFF. For 
a SPECIAL file you must enter a 
table or array name in columns 
54-59. The table or array must be 
defined in the extension specifica- 
tions. Blanks are invalid. 

The continuation card is ignored; 
job is terminated. 

Correct or remove the entry. 


System Action: 


User Response: 


RG453—CONTINUATION ENTRY IN COL 54-59 IS RE- 
PEATED FOR A FILE, SECOND ENTRY IGNORED 


Code: W—Warning 
Specification Type: F 
Explanation: Each of the continuation entries 


ASCII and BUFOFF may appear 
only once for any one tape file. 
For a SPECIAL file only one con- 
tinuation is allowed. . 

The second usage of the entry is 
ignored. 

To avoid this message on the next 
run remove the repeated continua- 
tion entry. 


System Action: 


User Response: 
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RG454—INVALID BUFFER OFFSET SPECIFIED ON 
COL 60-65 


Code: T—Terminal 
Specification Type: F 
Explanation: The buffer offset must have a value 


between 0 and 99. 

The continuation card is ignored. 
The job is terminated. 

Correct the value in columns 60-65 
and resubmit the job. . 


System Action: 


User Response: 


RG455—COLUMNS 7-52 AND 66-72 ARE NOT BLANK 
FOR A CONTINUATION LINE, ASSUME BLANK 


Code: W—Warning 


Specification Type: F 
Explanation: If continuation is specified, these 


columns must be blank. 

Entries in columns 7-52 and 66-72 
are ignored. . 

If this assumption is incorrect, re- 
move the continuation entries and 
resubmit the job. 


System Action: 


User Response: 


RG456—RECORD LENGTH SPECIFIED FOR A Agee 
FILE IS LESS THAN 18 


Code: T—Terminal 
Specification Type: F 
Explanation: The minimum record size allowed 


on tape files is 18 characters. 

The job is terminated. 

Correct the record length to 18 or 
greater and resubmit the job. 


System Action: 
User Response: 


RG457—ENTRY IN COL 70 INVALID FOR DEVICE, 
ASSUME BLANK 


Code: W—Warning 
Specification Type: F 
Explanation: An entry is allowed in column 70 


only on tape files. 

The entry in column 70 is ignored. 
To avoid this message on the next 
run, leave column 70 blank. 


System Action: 
User Response: 


RG458—BUFOFF SPECIFIED IN COL 54-59 FOR A NON- 
ASCII TAPE FILE, ASSUME ASCII 


- Code: W—Warning 
Specification Type: F . 
Explanation: The BUFOFF entry is valid only on 


files that are ASCII files. 

An ASCII file with BUFOFF is 
assumed. 

If this assumption is wrong, remove 
BUFOFF from columns 54-59 and 
resubmit the job. 


System Action: 


User Response: 


RG459—COLUMNS 60-65 ARE NOT BLANK WHEN 
ASCII IS ENTERED IN COL 54-59 


Code: W—Warning 
Specification Type: F 
Explanation: If ASCII is specified, no entry is 


allowed in columns 60-65. 

The entry in columns 60-65 is 
ignored. 

To avoid this message on the next 
run, leave columns 60-65 blank. 


System Action: 


User Response: 


RG460—INVALID ENTRY IN COL 53, ASSUME BLANK 


Code: W—Warning 

Specification Type: F 

Explanation: Valid entries are K or blank. 
System Action: Blank is assumed. 


User Response: To avoid this message on the next 


run, correct the entry in column 53. 


RG461—INVALID ENTRY IN COL 70, ASSUME BLANK 


Code: W—Warning 
Specification Type: F : 
Explanation: Valid entries are R, U, or N. 


Tape rewind information specified 
at job execution time assumed. 
Verify that the execution time 


System Action: 


User Response: 


rewind information will be adequate. 


_If not, correct column 70 and resub- 
mit the job. 


RG462—CONTINUATION, K IN COL 53, INVALID FOR 
MAIN FILE DESCRIPTION LINE. ASSUME BLANK. 


Code: W—Warnin 
Specification Type: F 
Explanation: K is valid only on a continuation | 


file description specification. 
Blank is assumed. 

To avoid this message on the next 
run, leave column 53 blank. 


System Action: 
User Response: 


RG500—FROM NAME INVALID OR MISSING FROM 
RA FILE 


Code: T—Terminal 
Specification Type: E 
Explanation: The From Filename entry in col- 


umns 11-18 is missing or not speci- 
fied properly for an RA file. ° 

The job is terminated. 

Enter the proper record address file- 
name in columns 11-18 and resub- 
mit the job. 


System Action: 
User Response: 


RG502—FROM FILENAME IS AN RA FILE THAT IS 


USED MORE THAN ONCE 

Code: T—Terminal 

Specification Type: E 

Explanation: The RA file named in columns 


11-18 is used more than once in 

the extension specifications. 

The job is terminated. 

Since only one RA file is allowed in 
a program, either remove the exten- 
sion specifications or correct the 
entry in columns 11-18. 


System Action: 
User Response: 


Appendix E. RPG II Error Messages 393 


RG503—TO FILENAME FOR A RA FILE TYPE IS 
EITHER: 1—NOT A PRIMARY, SECONDARY OR 
DEMAND FILE OR 2—IS MISSING, INVALID OR NON 
DISK FILE 


Code: T—Terminal 

Specification Type: E 

Explanation: The To Filename entry in columns 
19-26 must be a primary or second- 
ary disk file to be processed by an 
RA file. 

System Action: The job is terminated. 


Make the proper To Filename entry 
in-columns 19-26 and resubmit the 
job. 


User Response: 


RG504—TO FILENAME IS INCORRECT FILE TYPE 


Code: T—Terminal 
Specification Type: E 
Explanation: . The filename specified in columns 


19-26 is not an input, output, or 
update file. 

The job is terminated. 

Make sure the file named in columns 
19-26 is an input, output, or update 
file. Resubmit the job. 


System Action: 
User Response: 


RG510—LENGTH GIVEN FOR BINARY FIELD IS NOT 
2 OR 4, ASSUME 2 


Code: T—Terminal 

Specification Type: I,O 

Explanation: Binary field length specified is 
neither 2 nor 4 bytes. 

System Action: The job is terminated. 


Make the length of the binary field 
either 2 or 4 bytes. Resubmit the 
job. 


User Response: 


RG511—PACKED LENGTH GREATER THAN 8 FORA 


FIELD, TABLE, OR ARRAY » 

Code: T—Terminal 

Specification Type: I,O 

Explanation: The length specified for a packed 


The job is terminated. 

Specify a length of 8 or less for a 
packed field, table, or array. Re- 
submit the job. 


System Action: 
User Response: 
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field, table, or array is greater than 8. 


RGS 16—MORE THAN 7 AN/OR LINES SPECIFIED 


Code: T—Terminal 
Specification Type: C 
Explanation: More than 7 consecutive AN/OR 


line specified in the calculation 
specifications. 

The job is terminated. 

Specify up to 7 consecutive AN, 
OR, or AN/OR lines to condition 
an operation. Resubmit the job. 


System Action: 
User Response: 


RG517—AN/OR LINES OUT OF ORDER 


Code: T—Terminal 
Specification Type: C 
Explanation: The line immediately following a 


line with an operation code is an 
AN/OR line. 

The job is terminated. 

Remove the AN/OR entry in col- 
umns 7-8 from the first line in an 
AN/OR group and resubmit the job. 


System Action: 
User Response: 


RG518—NO INDICATORS GIVEN WITH AN/OR LINES 


Code: T—Terminal 
Specification Type: C 
Explanation: At least one indicator must be given 


in an AN or OR line. 

The job is terminated. 

Remove the specification in error 
or specify an indicator on the AN 
or OR line. 


System Action: 
User Response: 


RG519—COLUMNS 18-59 ARE INVALID WITH AN/OR 
LINES OR OP CODE IS MISSING WITH INDICATORS 
PRESENT, ASSUME BLANK 


Code: 


Specification Type: 


Explanation: 


System Action: 
User Response: 


T—Terminal 

C 

Only the last line of a group of 
AN/OR lines can have entries in 
columns 18-59 or indicators are 
specified in columns 7-17, but no 
operation is specified in columns 
28-32. 

The jab is terminated. 

Make sure that entries are made 
only in columns 18-59 of the last 
line of a group of AN/OR lines 

or make the proper operation code 
entry in columns 28-32. Resubmit 
the job. 


RG520—THIS LINE IS NOT AN AN/OR LINE AND 
PREVIOUS LINE HAS NO OP CODE; OR THIS LINE 
HAS NO INDICATORS AND NO OP CODE 


Code: 


Specification Type: 


Explanation: 


System Action: 
User Response: 


T—Terminal 

C 

This line is not an AN/OR line and 
previous line has no operation code 
specified. 

The job is terminated. 

If this line should be an AN/OR 
line, enter an AN/OR entry in 
columns: q- 8; if this line should 
have had: an operation code (an 
operation « code must be entered i in 
the last'line of a group of AN/ OR 
lines), make the proper operation 
code entry in columns 28-32. Re- 
submit the job. 


RG521—MINUS INDICATOR IS NOT ALLOWED FOR 
TEST BIT OPERATION OF ONLY 1 BIT 


Code: 


Specification Type: 


Explanation: 


System Action: 
User Response: 


W—Warning 

C Rit 

Columns 56-57 (Minus) must be 
blank when only one bit is speci- 
fied for a TESTB operation. 

Blank is assumed. _ 

To avoid the message the next time 
this job is run, leave columns 56-57 
blank. 


RG522—ALL THREE RESULTING INDICATORS ARE 


THE SAME 


Code: 


Specification Type: 


Explanation: 


System Action: 


User Response: 


W—Warning 

C 

Usually the same indicator is used 
for only one or two of the conditions. 
The indicator specified will be set 
on each time the calculation is 
executed. 

Make sure the proper resulting indi- 
cator entries have been made in 
columns 54-59. If the entires were 
incorrect, resubmit the job. 


RG523—A NEGATIVE FACTOR FOR THE SQUARE 
ROOT OPERATION IS NOT ALLOWED 


Code: 


Specification Type: 


Explanation: 


System Action: 
User Response: 


T—Terminal 

C 

The entry specified in Factor 2 of 
a SQRT operation is negative. 

The job i is terminated. 

Make the entry in Factor 2 ofa 
SQRT operation a positive value. 
Resubmit the job. 


RG5S24—WHOLE ARRAYS ARE NOT ALLOWED AS 
FACTOR 1 WITH DISPLAY OR CHAIN OP CODE 


Code: 


Specification Type: 


Explanation: 


System Action: 
User Response: 


T—Terminal 

C 

The entry in Factor 1 of a DSPLY 
or CHAIN operation cannot be a 
whole array. 

The job is terminated. 

Enter the array named and index in 
Factor 1 of a DSPLY or CHAIN 
operation. Resubmit the job. 


Appendix E. RPG II Error Messages 395 


RG525—OPERATION CODE IS INVALID FOR DEVICE 
TYPE OR MODE OF PROCESSING . 


Code: T—Terminal 

Specification Type: C 

Explanation: The CHAIN operation can only be 
specified for disk files processed 
randomly. 

System Action:. The job is terminated. 

User Response: Make sure that CHAIN is only 
specified for disk files processed 
randomly. 


RG541—FILE DESIGNATION IS INVALID FOR 


ADDROUT FILE, ASSUME R 

Code: T—Terminal 

Specification Type: F 

Explanation: The file designation entry in column 
16 is not R for an ADDROUT file. 

System Action: The job is terminated. 

User Response: Enter an R in column 16 for the 
ADDROUT file and resubmit the 


job. 


RGS43—LENGTH OF KEY COL 29-30, OR LENGTH OF 
KEY AND KEY START LOCATION GREATER THAN 
RECORD LENGTH . 


Code: T—Terminal 
Specification Type: F 
Explanation: The key field entry in columns 


29-30 must be less than 29 charac- 
ters and must be less than the 
record length. The sum of the key 
field starting location plus the key 
length must not exceed the record 
length. 

System Action: _ Key field length of 03 is assumed; 

| key field starting location of O1 is 

assumed. The job is terminated. 

User Response: Make the proper key field length 
(columns 29-30) and key field 
starting location (columns 35-38) 
entries. Resubmit the job. 
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RG544—LENGTH OF RA OR KEY FIELD, COLS 29-30 
BLANK OR INVALID, ASSUME 03 


Code: T—Terminal 
Specification Type: F 


Explanation: Columns 29-30 are blank or the 
entry specified is invalid for files 
that contain limits or for ADDROUT 


files. . 
System Action: 03 is assumed; the job is terminated. 
User Response: Make the entry in columns 29-30 


a number from 1 to 29 for files that 
contain limits and for ADDROUT 
files. Resubmit the job. 


RG545—RECORD LENGTH, COLS 24-27, NOT 18 FOR 
ADDROUT TAPE FILE. ASSUME 18. 


Code: W—Warning 

Specification Type: F 

Explanation: The record length of an ADDROUT 
tape file must be 18. 

System Action: 18 is assumed. 

User Response: To avoid this message on the next 


run, correct the entry in columns 
24-27 and resubmit the job. 


RG548—FILE ADDITION IS INVALID FOR FILE OR 
DEVICE, ASSUME BLANK 


Code: | T—Terminal 
Specification Type: F,O 
Explanation: | File addition (A in column 66) can 


be specified for sequential and in- 
dexed output files on disk only. 
System Action: The job is terminated. 
User Response: Make the proper file addition entry 
in column 66 and resubmit the job. 


RG549—KEY FIELD START LOCATION IS BLANK OR_ ~ 


EXCEEDS RECORD LENGTH 

Code: T—Terminal 

Specification Type: F 

Explanation: Columns 35-38 are blank or the 


System Action: 
User Response: 


entry specified exceeds the record 
length in your file description 
specifications. 

The job is terminated. 

Make the key field starting location 
entry (1-4096) in columns 35-38 
equal to or less than the record 
length. Resubmit the job. 


RG550—NO MORE THAN 20 FILE DESCRIPTION SPECS 


ALLOWED 

Code: 

Specification Type: 
Explanation: 


System Action: 
User Response: 


T—Terminal 

F 

More than 20 file description lines 
were specified. 

The job is terminated. 

Specify a maximum of 20 file 
description lines per program. Re- 
submit the job. 


RG551—RECORD LENGTH MISSING OR INVALID FOR 


DISK FILE, ASSUME 256 

Code: T—Terminal 

Specification Type: F 

Explanation: The record length entry in columns 


System Action: 
User Response: 


24-27 is missing. 

The job is terminated. 

Make the proper record length entry 
in columns 24-27; it can be a number 
from 1 to 4096. Resubmit the job. 


RG552—FACTOR 1 AND RESULT FIELD MUST NOT 
BOTH BE BLANK WITH DSPLY OP CODE 


Code: 
Specification Type: 
Explanation: 


System Action: 
User Response: 


T—Terminal 

C 

Both the Result Field and Factor 1 
were left blank on a DSPLY opera- 
tion. 

The job is terminated. 

Make the proper entry under Factor 
1 or the Result Field for the DSPLY 
operation and resubmit the job. 


RG553—CORE INDEX IS INVALID FOR DEVICE TYPE 


OR MODE OF PROCESSING 

Code: W—Warning 

Specification Type: F 

Explanation: Core index can be specified in 


System Action: 
User Response: 


. columns 60-65 for indexed disk files 


processed randomly. Core index 
should not be specified when using 
Shared I/O. 

Blank is assumed. 

Make the proper core index entry in 
columns 60-65. 


RG554—ADD SPECIFIED ON THE FILE DESCRIPTION 
SPEC BUT ADD NOT REFERENCE ON OUTPUT 


Code: 
Specification Type: 
Explanation: 


System Action: 
User Response: 


T—Terminal 

Not applicable 

Column 66 contains an A, but 
record addition ADD in columns 
16-18 is not specified in your out- 
put specifications. 

The job is terminated. 

Place ADD in columns 16-18 of 
your output specifications when A 
is specified in column 66 of file 
description. Resubmit the job. 


RG555—NO ADD SPECIFIED ON FILE DESCRIPTION 


Code: 
Specification Type: 
Explanation: 


System Action: 
User Response: 


T—Terminal 

Not applicable 

ADD is specified in columns 16-18 
of your output specifications, but 
the add function was not specified 
in file description specifications 
(column 66) for this file. 

The job is terminated. 

Place A in column 66 of your file 
description specifications when 
ADD is specified in columns 16-18 
of the output specifications. Re- 
submit the job. 
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RG557—MASK FOR BIT OPERATION IS NOT 0-7 


Code: T—Terminal 
Specification Type: C : 
Explanation: The mask specified for the bit opera- 


tion is not 0-7. 

The job is terminated. 

Specify bits 0-7 as the mask for 
the bit operation and resubmit the 
job. 


System Action: 
User Response: 


RG558—INVALID USE OF (OR MISSING) RESULTING 
INDICATORS WITH THIS OP.CODE. ASSUME INVALID 
RESULTING INDICATORS BLANK. 


Code: W—Warning 
Specification Type: C a ee 
Explanation: For CHAIN: Columns 56-59 must 


be blank. It is suggested that' 
columns 54-55 contain an indicator 
that can be tested for record not 
found. For READ: Columns 54-57 
must be blank. It is suggested that 
colunins 58-59 contain an indicator 
that can be tested for end of file. 
Blank is assumed for columns that 
must be blarik. 

To avoid this message the neXt time 
the job-is run, make the necessary 
corrections, as mentioned above. 


System Action: 


User Response: 


RG559-—-FACTOR 2 OR RESULT FIELD INVALID FOR 
SPECIFIED OPERATION ~ 


Code: . T—Terminal 
Specification Type: C 
Explanation: 
MOVEA operation: 


(1) Either Factor 2 or the Result Field must contain 
the name of an array. (2) Both Factor 2 and the 
Result Field may contain the name of an array 
but not the same array. 
XFOOT operation: 
Factor 2 must be a whole array. 
System Action: The job is terminated. 
User Response: Make the proper entries in columns 
33-42 and/or columns 43-48. Re- . 
submit the job. 
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| System Action: 


RG560—MODE OF PROCESSING GIVEN (COL 28) NOT 
ALLOWED, ASSUME BLANK 


T—Terminal 


Code: 
Specification Type: F | 
Explanation: The mode of processing entry 


specified in column 28 is invalid. 
The job is terminated. 

An entry of ‘L’ is allowed for limits 
or ‘R’ for random processing of disk 
files. Place the proper entry in col- 
umn 28 and resubmit the job. 


User Response: 


RG561—KEY FIELD START LOCATION (COLS 35-38) 
GIVEN BUT NOT ALLOWED, ASSUME BLANK 


Code: T—Terminal 
Specification Type: F . ° 
Explanation: The key field start location entry 


specified in columns 35-38 is invalid. 
The job is terminated. 

Place the proper entry in columns 
35-38 of file description specifica- 
tions for indexed files only. Resub- 
mit the job. 


System Action: 
User Response: 


RG562— FILE TYPE FOR FROM FILENAME AND/OR 
TO FILENAME INVALID WITH TABLE/ARRAY 


Code: 


: T—Terminal 
Specification Type: Not applicable 
Explanation: The From Filename and/or the 


To Filename specified is invalid. 

The job is terminated. 

Make sure the From Filename speci- 
fied in.columns 11-18 of extension 
specifications is an input file and 
that the To Filename in columns 
19-26 is an output file. Resubmit 
the job. 


System Action: 
User Response: 


RG564—RECORD LENGTH IS NOT AT LEAST TWICE 
THE KEY LENGTH 


Code ; T—Terminal 
Specification Type: F 
Explanation: The record length must be at least 


twice the key length. 

The job is terminated. 

Specify the record length to be at 
least twice the key length, and 
resubmit the job. 


System Action: 
User Response: 


RGS65—COLUMN 31 INVALID FOR DEVICE TYPE 


Code: T—Terminal 
Specification Type: F 
Explanation: The entry in column 31 is valid for 


record address or index files. 

The job is terminated. 

Leave column 31 blank or change 
the file type entry. Resubmit the 
job. 


System Action: 
User Response: 


RGS66—INVALID USE OF DEVICE AS FROM 
FILENAME 


Code: T—Terminal 
Specification Type: E 
Explanation: The file named in columns 11-18 of 


extension specifications is not assign- 
ed to the disk, MFCU, or console. 
The job is terminated. 

Place the proper From Filename 
entry in columns 11-18 and resub- 
mit the job. 


System Action: 
User Response: 


RG567—TABLE RECORD SIZE GREATER THAN FROM 
FILENAME DEVICE RECORD SIZE 


Code: T—Terminal 
Specification Type: E 
Explanation: Table or array record length speci- 


fied exceeds the maximum record 
allowed for the device. 

The job is terminated. 

Make the table or array record 
length equal to or less than the 
maximum record length for the 
device. Resubmit the job. 


System Action: 
User Response: 


RG568—LENGTH OF KEY FIELD OR RA LENGTH 
COLS 29-30 GIVEN BUT NOT ALLOWED, ASSUME 
BLANK 


Code: T—Terminal 
Specification Type: F 
Explanation: Length of key field or RA length 


specified in columns 29-30 is invalid 
for this file type. 

The job is terminated. 

Leave columns 29-30 blank, and 
resubmit the job. 


System Action: 
User Response: 


RGS569—ENTRY OF I COL 32 NOT GIVEN FOR AN 
INDEXED FILE, ASSUME I 


Code: T—Terninal 
Specification Type: F 
Explanation: The entry specified in column 32 


for an indexed file is not I. 

I is assumed, the job is terminated. 
Enter I in column 32 for an indexed 
file and resubmit the job. 


System Action: 
User Response: 


RG570—LOOK AHEAD WITH NUMERIC SEQUENCE 
OR LOOK AHEAD FOLLOWS A NUMERIC RECORD 


Code: T—Terminal 
Specification Type: I 
Explanation: A look ahead record type (** in 


columns 19-20) cannot be specified 
on the same line as a numeric 
sequence entry in columns 15-16. 
The job is terminated. 

Specify look ahead record types 
(** in columns 19-20) on the same 
line with an alphabetic entry in 
columns 15-16. Resubmit the job. 


System Action: 
User Response: 


RG571—MORE THAN ONE LOOK AHEAD RECORD 
IN A FILE 


Code: T—Terminal 
Specification Type: I 
Explanation: Look ahead is specified more than 


once for this file. 

The job is terminated. 

Make only one look ahead specifi- 
cation for a file. Resubmit the job. 


System Action: 
User Response: 


RG572—LOOK AHEAD CANNOT BE THE ONLY 
RECORD IN A FILE 


Code: T—Terminal 
Specification Type: I 
Explanation: Look ahead records specified do 


not follow other file or record type 
specifications. 

The job is terminated. 

Specify look ahead records following 
other file or record type specifica- 
tions. Resubmit the job. 


System Action: 
User Response: 
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RG573—MULTI RA FILES DEFINED 


Code: T—Terminal 

Specification Type: F . 

Explanation: More than one record address file 
. is defined in this program. 

System Action: The job is terminated. 


Specify only one record address file 


User Response: 
per program. Resubmit the job. 


RG574—EXTERNAL INDICATOR COLS 71-72 NOT 
THE SAME AS RA FILES 


Code: T—Terminal 
Specification Type: F 
Explanation: The record address file and the file 


it is used to process are not condi- 


tioned by the same external indicator. 


The job is terminated. 

When external indicators are used, 
specify the same external indicator 
for both the record address file and 
the file it is used to process. Resub- 
mit the job. 


System Action: 
User Response: 


RG575—NO INPUT SPECIFICATIONS FOUND FOR 
THIS FILE 


Code: T—Terminal 
Specification Type: Not applicable 
Explanation: Input specifications required for this 


file, but none were supplied. 

The job is terminated. 

Supply input specifications for all 
input files (except record address 
and tables) and for update files. 
Resubmit the job. 


System action: 
User Response: 


RG576—COMPILE TIME TABLE DATA FOUND. 
COMPILE TIME TABLE OR ARRAY NOT SPECIF JED 
IN EXTENSION 


Code: W—Warning 

Specification Type: E 

Explanation: No extension specifications were 
. supplied for compile time table. 
System Action: Table data is not processed. 


Supply the proper extension speci- 
fications and resubmit the job. 


User Response: 
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RG577—ONLY ONE FILE ASSOCIATED WITH AN RA 
FILE IS ALLOWED IN A PROGRAM 


T_Terminal 


Code: 
Specification Type: F,E 
Explanation: More than one record address file 


or more than one file associated 
with a record address file is defined 
in this program. 

The job is terminated. 

Specify only one record address file 
per program or associate only one 
file with a record address file. 


System Action: 
User Response: 


RG5S78—A RECORD ADDRESS FILE OR A FILE 
ASSOCIATED WITH THE RECORD ADDRESS FILE IS 
REQUIRED BUT NOT DEFINED 


Code: .T—Terminal 
Specification Type: ‘°C 
Explanation: ‘A record address file or a file associ- 


ated with a record address file is 
required for this job but was not 
defined. 

The job is terminated. - 
Supply the proper record address 

file or file associated with the record 
address file and resubmit the job. 


System Action: 
User Response: 


RG579-—FIRST 1P LINE NOT FOR PRINTER, ASSUME 
COL 41 IN CONTROL CARD BLANK 


Code: W—Warning 
Specification Type: O 
Explanation: Forms alignment is requested but 


the first 1P line is not specified for 
a printer file. 
Column 41 of the control card 
specifications is assumed to be 
blank; therefore, no forms align- 

: ment is done. 
User Response: For forms alignment, specify the 

first 1P line for a printer file. 


System Action: 


RG580—REFERENCED A MATCH LEVEL WHICH IS 
NOT VALID, OR DEFINED A LEVEL MORE THAN 
ONCE 


Code: T—Terminal 
Specification Type: I 
Explanation: Either an invalid match level is 


used or a match level is defined 
more than once. 

The job is terminated. 

Be sure that each record group con- 
tains the same match levels, and 
that each match level is defined only 
once. Resubmit the job. 


System Action: 
User Response: 


RG581—MISSING OR INVALID AN/OR ENTRY IN 
COL 7-8 


Code: T—Terminal 
Specification Type: C 
Explanation: An AN/OR entry in columns 7-8 


is missing or the entry specified is 
not AN or OR. 

The job is terminated. 

Make the proper AN/OR entry in 
column 7-8 and resubmit the job. 


System Action: 
User Response: 


RG582—THE RELATIVE RECORD NUMBER FOR THE 
CHAIN OPERATION MUST BE NUMERIC WITH 0 
DECIMAL 


Code: 


W—Warning 
Specification Type: C 
Explanation: The relative record number speci- 


fied for a CHAIN operation is not 

a numeric field with zero decimal 
positions. 

The decimal positions are ignored. 
To avoid this message the next time 
this job is run, make the relative 
record number for a CHAIN opera- 
tion a numeric field with zero deci- 
mal positions. 


System Action: 
User Response: 


RG583—BINARY LENGTH SPECIFIED GREATER THAN 
9, ASSUME 9 


Code: T—Terminal 
Specification Type: O 
Explanation: The binary length specified is 


greater than 9. 

The job is terminated. 

Make the binary length entry 9 or 
less and resubmit the job. 


System Action: 
User Response: 


RG584—THIS MATCH LEVEL WAS REFERENCED 
PREVIOUSLY IN THIS RECORD GROUP 


Code: T—Terminal 
Specification Type: I 
Explanation: A match level was referenced more 


than once within one record group. 
The job is terminated. 

Be sure that each match level is 
referenced only once within a 
record group. Resubmit the job. 


System Action: 
User Response: 


RG585—DISPLAY, CHAIN, OR DEMAND FILE 
SPECIFIED, BUT APPROPRIATE OPERATION CODE 
NOT FOUND IN CALCULATION SPECIFICATIONS 


Code: T—Terminal 

Specification Type: C 

Explanation: Display, chain, or demand files are 
specified but the appropriate opera- 
tion codes are not specified in cal- 
culation specifications. 

System Action: The job is terminated. 


User Response: Specify the appropriate operation 


code and resubmit the job. 


RG586—MORE THAN ALLOWABLE TABLE/ARRAY 
NAMES USED IN THE PROGRAM 


Code: T—Terminal 
Specification Type:  E 
Explanation: More than 60 compile-time tables 


and/or arrays were defined or a 
total of more than 63 tables and/or 
arrays were defined in this program. 
The job is terminated. 

Reduce the number of compile- 
time tables and/or arrays to 60 or 
less and the total number tables 
and/or arrays to 63 or less. 


System Action: 
User Response: 
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RG587—IF FACTOR 1 OR FACTOR 2 IS A WHOLE 
ARRAY, RESULT FIELD MUST BE WHOLE ARRAY 


Code: T—Terminal 
Specification Type:  C 
Explanation: The entry in Factor 1 or Factor 2 
is a whole array, but the Result 
Field does not refer to a whole array. 
System Action: The job is terminated. 


When the entry in Factor 1 or 
Factor 2 is a whole array, place an 
array name in the Result Field. 
Resubmit the job. 


User Response: 


RG588—TESTB, BITON, AND BITOF MAY NOT 
REFERENCE AN ENTIRE ARRAY 


Code: T—Terminal 

Specification Type: C 

Explanation: An entire array must not be refer- 
enced in a TESTB, BITON, or 
BITOF operation. 

System Action: The job is terminated. 


‘When using arrays with TESTB, 
BITON, or BITOF operations, 
specify array elements not the 
whole array. Resubmit the job. 


User Response: 


RG589—RESULT FIELD MUST BE A ONE-POSITION 
ALPHAMERIC FIELD. IF FACTOR 2 IS AFIELD — 
NAME, IT MUST BE A ONE-POSITION ALPHAMERIC 
FIELD . 


Code: T—Terminal 
Specification Type: C 
Explanation: The Result Field is not a one-byte 


alphameric field for TESTB, 
BITON, and BITOF, or Factor 2 
is a field name. but is not a one-byte 
alphameric entry. 

The job is terminated. 

Make the Result Field a one-byte 
alphameric field for TESTB, 
BITON, or BITOF. If Factor 2 
contains a field name, make it a 
one-byte alphameric field. Resub- 
mit the job. 


System Action: 
User Response: © 
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- Explanation: 


RG590—WHENEVER HIGH IS USED IN A MOVE ZONE 
OPERATION, IT MUST REFERENCE AN ALPHAMERIC 
FIELD 


Code: T—Terminal 
Specification Type: C 
Explanation: The high portion of a move zone 


instruction does not reference an 
alphameric field. 

The job is terminated. 
Make the high portion of a move 
zone instruction reference an alpha- 
meric field and resubmit the job. 


System Action: 
User Response: 


RG591—LENGTH OF FIELD IN FACTOR 1 NOT EQUAL 
TO KEY LENGTH OF FILE SPECIFIED IN FACTOR 2 


Code: T—Terminal 
Specification Type: C 
Explanation: The length of the field in Factor 1 


of a CHAIN operation is not equal 
to the key field length specified in 
Factor 2. 

The job is terminated. 

For a CHAIN operation, make the 
length of the chaining field (Factor 
1) equal to the length of the key 
field (Factor 2). Resubmit the job. 


System Action: 
User Response: 


RG592—FOR SEQUENTIALLY PROCESSED UPDATE 
FILE--T ENTRY IN COL 15 IS INVALID OR LO-L9 
INDICATOR USED WITH EIN COL 15 


Code: T—Terminal 

Specification Type: O 

Total output cannot be specified 
for update files processed sequen- 
tially. 

The job is terminated. 

Remove the T or E entry from 
column 15 and resubmit the job. 


System Action: 
User Response: 


RG593—TABLE/ARRAY NAME MISSING FOR ‘TO’ 
AND/OR ‘FROM’ FILENAME 


Code: W—Warning 
Specification Type: E 
Explanation: No table name was specified in 


columns 27-32 for a table load 
operation (From Filename in col- 
umns 11-18) or for a table output 
operation (To Filename in columns 
19-26). 

No action taken. 

To avoid the message when this job 
is run again, specify the proper 
table name in columns 27-32. 


System Action: 
User Response: 


RG594—TO FILENAME MAY NOT BE USED WITH 
EXECUTION TIME TABLE/ARRAY 


Code: T—Terminal 
Specification Type: E 
Explanation: An array output operation (To 


Filename in columns 19-26) must 
not be specified for execution time 
arrays. 

The job is terminated. 

Remove the To Filename entry in 
columns 19-26 for execution time 
arrays. Resubmit the job. 


System Action: 
User Response: 


RGS95—COLS 27-32 AND 46-51 MUST BE BOTH TABLE 
OR BOTH ARRAY NAMES 


' Code: T—Terminal 
Specification Type: E 
Explanation: For alternating tables, columns 


27-32 and 46-51 do not both con- 
tain table names; or columns 27-32 
and 46-51 do not both contain array 
names for alternating arrays. 

The job is:terminated. 

For alternating tables or arrays, 
specify either table names or array 
names in both columns 27-32 and 
46-51. Resubmit the job. 


System Action: 
User Response: 


RG597—END POSITION SPECIFIED FOR *PLACE LESS 
THAN TWICE THAT OF HIGHEST PREVIOUSLY SPECI- 
FIED FIELD END POSITION OR END POSITION 
GREATER THAN 256 


Code: T—Terminal 
Specification Type: O 
Explanation: The end position specified for 


*PLACE is lower than end position 
specified for the preceding field or 
greater than 256. 

The job is terminated. 

Make the proper end position entry 
for *PLACE, and resubmit the job. 


System Action: 
User Response: 


RG598—ALPHA TABLE/ARRAY SPECIFIED AS 
PACKED, ASSUME NUMERIC 


Code: T—Terminal 
Specification Type: E 
Explanation: An alphameric table or array was 


specified as packed. 

The job is terminated. 

Specify the table or array as numeric, 
and resubmit the job. 


System Action: 
User Response: 


RG599—LENGTH OF ELEMENT FOR BINARY TABLE/ 
ARRAY NOT SPECIFIED AS 4 OR 9, DEFAULT TO 4 
IF LENGTH SPECIFIED IS LESS THAN 4, OTHERWISE 
DEFAULT TO 9 


Code: T—Terminal 
Specification Type: E 
Explanation: The binary length was not specified 


as 4 or9. 

The job is terminated. 

Make the proper binary length entry 
and resubmit the job. 


System Action: 
User Response: 


RG621—TRAILER RECORD OVERLAPS HEADER 
RECORD 


Code: T—Terminal 
Specification Type: I 
Explanation: The trailer field overlaps the header 


field in a spread card. 

The job is terminated. 

Make the first trailer field start 
after the last position in the header 
field. Resubmit the job. 


System Action: 
User Response: 


Appendix E. RPGII Error Messages 403 


RG622—NO TRAILER FIELDS FOR SPREAD CARD 


Code: 
Specification Type: 
Explanation: 


System Action: 
User Response: 


T—Terminal 

I 

No trailer fields are specified for 

the spread card. 

The job is terminated. 

Make the proper trailer field entries 
for the spread card (TR in columns - 
19-20). Resubmit the job. 


RG623—ENTRIES IN COLUMNS 7-18 AND 21-74 
INVALID FOR TR SPECIFICATION, ASSUME NO TR 


Code: 
Specification Type: 
Explanation: 


System Action: 


User Response: 


T—Terminal 

I 

Entries specified in columns 7-18 
and 21-74 of a TR line. 

Columns 19-20 are assumed blank; 
no spread cards are accepted. The 
job is terminated. 

If spread cards are to be used, leave 


~ columns 7-18 and 21-74 blank for 


the TR line (TR in columns 19-20). 
Resubmit the job. 


RG624—TR SPECIFICATION OUT OF ORDER 


Code: 
Specification Type: 
Explanation: 


System Action: 
User Response: — 


T—Terminal 
I 
The TR specification line is not 


preceded by a definition of a header | 


record. 

The job is terminated. 

Place the TR specification line 
immediately after a definition of a 
header record. Resubmit the job. 


RG625—FACTOR 1 MUST BE NUMERIC FOR CHAIN 
OPERATION WHEN FACTOR 2 FILENAME HAS 


~ PACKED KEYS 


Code: 
Specification Type: 
Explanation: 


System Action: 
User Response: 
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T—Terminal 

C 

The entry specified in Factor 1 of 
a CHAIN operation is not numeric 
even though the file named in 
Factor 2 has packed keys. 

The job is terminated. 

Make the entry in Factor 1 of a 
CHAIN operation numeric when 
the file named in Factor 2 has 
packed keys. Resubmit the job. 


RG626—MORE THAN 128 TR SPECIFICATIONS 


GIVEN 


Code: 
Specification Type: 
Explanation: 


System Action: 
User Response: 


T—Terminal 

I 

More than 128 valid TR lines are 
specified in this program. 

The job is terminated. 

Make the number of valid TR lines 
in this program 128 or less. Resub- 
mit the job. 


RG628—INVALID FILE TYPE FOR SPREAD CARD 


Code: 
Specification Type: 
Explanation: 


System Action: 
User Response: 


T—Terminal 

I 

The file containing spread cards is 
not a card input file designated as 
primary or secondary. 

The job is terminated. 

Make sure the file containing spread 
cards is a card input file designated 
as primary or secondary. Resubmit 
the job. 


RG631—FACTOR 1 MUST HAVE SAME LENGTH WHEN 
PACKED AS LENGTH OF PACKED KEYS FOR FACTOR 


2 FILENAME 


Code: 
Specification Type: 
Explanation: 


System Action: 
User Response: 


T—Terminal 

C 

The entry in Factor 1 of a CHAIN 
operation is not the same length 
when packed as the record keys in 
the file named in Factor 2. 

The job is terminated. 

Make sure the entry in Factor 1 of 
a CHAIN operation is the same 
length when packed as the record 
key in file named in Factor 2. Re- 
submit the job. 


RG635—NUMERIC SEQUENCE CHECKING SPECIFIED 
FOR A SPREAD RECORD, BUT N NOT SPECIFIED FOR 
NUMBER, ASSUME N 


Code: W—Warning 
Specification Type: I 
Explanation: An N entry was not made in column 


17 even though sequence checking 
was specified (numeric entry in 
columns 15-16). 

N is assumed. 

To avoid this message when this 
job is run again, enter N in column 
Ly; 


System Action: 
User Response: 


RG644—SHARED I/O NOT ALLOWED WITH DISK40 OR 
DISK45 IN PROGRAM, ASSUME NO SHARED I/O 


Code: T—Terminal 
Specification Type: F 
Explanation: Shared I/O cannot be used with 


DISK40 or DISK45. 

Job is terminated. 

To avoid this message on the next 
run, remove the shared I/O entry 
(column 48) from the header card. 


System Action: 
User Response: 


RG645—IMPROPER USE OF THE PACK/UNPACK 
FEATURE FOR LIMITS FILE PROCESSING 


Code: 


T—Terminal 
Specification Type: E 
Explanation: The unpacked key length must be 


either 1 or 2 less than twice the 
packed key length. 

The job is terminated. 

Correct the unpacked key length 
and resubmit the job. 


System Action: 
User Response: 


RG646—WHOLE ARRAY IN RESULT FIELD INVALID 
FOR SPECIFIED OP CODE 


Code: T—Terminal 
Specification Type: C 
Explanation: An entire array cannot be specified 


as the result field for the operation 
specified. 

The job is terminated. 

Make the result field a field (must 
be numeric for XFOOT), an array 
element or a table element. Resub- 
mit the job. 


System Action: 
User Response: 


System Action: 


RG647—UNEQUAL KEY LENGTHS SPECIFIED FOR 


KEYS OF IDENTICAL FORMAT 

Code: W—Warning 

Specification Type: E 

Explanation: The key length of a limits file 


(record address file) should be equal 
to the key length of the file to be 
processed by limits. 

The key length of the file processed 
by limits is assumed as the key 
length of the limits file. 

Specify the key lengths to be equal, 
to eliminate the message. 


System Action: 


User Response: 


RG701—INVALID NUMBER OF SECTORS SPECIFIED 


Code: W—Warning 
Specification Type: F 
Explanation: The number of sectors specified on 


the file description specifications 
continuation statement for INDEX 
is invalid. 

A default of 1 is used. 

Specify correct number wanted. 


System Action: 
User Response: 


RG702—KEY WORD REPEATED FOR A FILE, SECOND 
IGNORED 


Code: W—Warning 
Specification Type: F 
Explanation: Continuation entry INDEX may 


appear only once for any file. 
The second entry is ignored. 
Remove second entry. 


System Action: 
User Response: 


RG703—CONTINUATION KEYWORD SPECIFIED 
IS INVALID 


Code: T—Terminal 
Specification Type: F 
Explanation: The only entry in columns 54-59 


is INDEX. 

The continuation specification is 
ignored, and the job is terminated. 
Make correct entry in columns 
54-59 or remove the continuation 
specification. 


User Response: 
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RG704—BOTH MFCU AND MFCM DEVICES ARE 
SPECIFIED IN THE SAME PROGRAM 


Code: T—Terminal 
Specification Type: F 
Explanation: The MFCU and MFCM may not 


be specified in the same program. 
The job is terminated and the entire 
specification is ignored. This condi- 
tion may cause other errors to be 
generated. 

Make necessary corrections and 
resubmit the job. 


System Action: 


User Response: 


RG705—INPUT OR OUTPUT CRT77 FILE SPECIFIED 
IN THE SAME PROGRAM WITH CRT77 UPDATE FILE 


Code: W—Warning 
Specification Type: F 
Explanation: If a CRT77 update file is specified 


there should not be any input or 
output CRT77 files specified. 
None. 

Correct the program and recompile. 


System Action: 
User Response: 


RG706—MORE THAN ONE DISPLAY FILE SPECIFIED 
IN PROGRAM 


Code: T—Terminal 

Specification Type: F 

Explanation: Only one display file is allowed per 
program. 

System Action: The job is terminated. 


Correct the program and resubmit 
the job. 


User Response: 


RG707—RESULT FIELD FOR TIME OPERATION CODE 
MUST BE 6 OR 12 DIGIT NUMERIC WITH NO DECIMAL 
POSITIONS 


Code: T—Terminal 

Specification Type: C 

Explanation: The result field specified for the 
TIME operation code has been de- 
fined with a length other than 6 or 
12 or is not numeric with zero 
decimals. 

System Action: The job is terminated. 


Correct the error and resubmit the 
job. 


User Response: 


RG708—CONTINUATION KEYWORD ‘INDEX’ IS NOT 
ALLOWED FOR THE TYPE OF FILE PROCESSING 
SPECIFIED 


Code: W—Warning 

Specification Type: C 

Explanation: ‘INDEX’ keyword is not allowed 

for: 

— Index random input (with NO 
ADD specified) 

— Index random update (with NO 
ADD specified) 

— Index output (with NO ADD 
specified) 

The continuation entry is ignored. 

Make sure ‘INDEX’ continuation is 

specified with an allowed type of 

file processing. 


System Action: 
User Response: 


RG799—ERROR FILE FULL 


Code: T—Terminal 

Specification Type: Not applicable 

Explanation: Too many errors were made in this 
program. 


Job is terminated. 
Correct the errors diagnosed in this 
program; resubmit the job. 


System Action: 
User Response: 


RG999—PROGRAM EXCEEDS CORE IN COL 12-14 OF 
HEADER CARD 


Code: W—Warning 
Specification Type: H 
Explanation: The program requires more core 


storage for execution than specified 
in columns 12-14 of the control 
card specifications. 

No action taken. 

To avoid this message when this job 
is run again, make the proper entry 
in columns 12-14. 


System Action: 
User Response: 
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Assembler subroutines may be linked to an RPG II program 
by the following methods: 


@ An EXIT operation is used to pass control to a subroutine 
to be used during calculations. The subroutine is named 
in the EXIT operation, and a field, table or array, or 
indicator may be passed to the subroutine by an 
RLABL operation following the EXIT operation. 


e@ For the IBM System/3 Card System and Disk System, a 
SPECIAL device may be named in the RPG II file 
description specifications. The file description speci- 
fications are used to name a subroutine to control 
input/output functions for the special device. 


EXIT and RLABL Operations 


Linkage from RPG II to an assembler language subroutine 
is accomplished through the EXIT and RLABL RPG II 
operations. Control cannot be transferred from one 
assembler subroutine to another. All EXIT and SUBR 
type SPECIAL subroutines will be a part of the root 
segment and will not be put into overlays. 


EXIT Operation 


The EXIT operation code is used to designate a point in the 
RPG II calculation specifications at which control is to be 
passed to a previously assembled, external subroutine. 


The rules for use of the EXIT operation in RPG II 
calculation specifications are as follows: 


Columns Entry 
Operation (28-32) EXIT 
Factor 1 (18-27) Blank 


Factor 2 (33-42) The name of the sub- 
routine to which control 
is to be passed. The name 
must consist of five or 

six characters, the first 
four of which are SUBR. 
The remaining characters 
must be alphabetic for 
user written subroutines. 
(Numeric characters are 
reserved for IBM supplied 
subroutines.) The module 
name and entry point 
name must be the same. 


Result Field (43-48) Blank 


Resulting Indicators Blank 
(54-59) 


The EXIT operation can be conditioned by control level 
entries (columns 7-8) and indicators entries (columns 9-17). 
If not conditioned by control level entries, the EXIT 
operation occurs at detail calculation time. 


The position of the EXIT operation in the calculation 
specifications of the RPG program determines at what 
point the actual subroutine execution will occur. See 
Figure F-1. 
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First Detail! line in 
calculation specifications 


Immediately following data 
routine (that is, after data is 
extracted from input record.) 


Last Detail line in Immediately before heading 

calculation specifications records output time. 
Immediately following input 
routine (after determination 
of record type and testing for 
control level break). 


Immediately before total 
records output time. 


Immediately following the 
previous calculation 
operation. 


First Total line in 
calculation specifications 


Last Total line in 
calculation specifications 


Any other Detail/Total 
line in calculation 
specifications 





Figure F-1. Relationship Between Position of EXIT 
Operation and Execution of Subroutine 


RLABL Specification 


Through the RLABL operation, a field, table or array, or 
indicator defined in the RPG II program can be referenced 


by the subroutine to which the EXIT operation gives control. 
The rules for use of RLABL in RPG II calculation specifica- 
tions are as follows: 


Columns Entry 


Operation (28-32) RLABL 


Result Field (43-48) Field, table or array name, 
or indicator 


Field Length (49-51) Length of field (optional) 


Decimal Positions (52) Decimal indication 


(optional) 
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The RLABL specifications must immediately follow the 
EXIT specifications for the subroutine which references 
the RPG II field. A name defined by a TAG, BEGSR, 
or ENDSR specification cannot be used in an RLABL 
specification. 


An assembler subroutine may reference indicators in the 
RPG II program to which it is linked. This is done by 
entering INxx in the result field of an RLABL specifica- 
tion. The xx represents the indicator to be referenced. For 
example, if MR is to be tested, INMR must be entered in 
the result field of the RLABL specification. 


Using RLABL Fields in the EXIT Routine 


When linkage is effected from RPG II to an assembler 
subroutine, there are three possible entries in the Result 
Field of the RLABL specification: field table or array, 

and indicator. See Figure F2. Figures also show the RPG II 
coding for the linkages, and the compiled parameters repre- 
senting the RLABL fields. See Sample Programs later in this 
section for further examples. 


Table 
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75 76:77 78 79 80 
Form GX21-9093 
Printed in U.S.A. 
75 76:77 78 79 80 
Form GX21-9093 
Printed in U.S.A. 
75 76 77 78 79 30 


Comments 
Comments 
Comments 


identification 


3 
3 
$ 
Ee 
3 


Wdentification 


E 
s 
3 
¢< 


Program 
Program 


of 
of 


a ae t+ 
| Ko | A 


12 
veLL 
1 2 

LL] 


12 
LL] 









5 ” ele 
Fi Ee: BAF: 
a3 : 5 a4 AEE 
—_ N = 
A a3 ) | | ft o> = a ee 2 
=jsj= st ft fT tT tg = Pt re 
= RE ) — T _ mampvirn af 111d é cS) 
& wonnogeumaal | | 10) Cc z g & 
E a 8 suopisog ewioog Sf | | |_| E © 
. Ss Z Z 2 
s co ° g c 
8 2 et 8 2 8 = 
Be] in i 2 a 
4 ‘oe v Lol 2 
Z g 


i 
ia 
Indicator 
cl 
he 


Field 


Operation 


Operation 
Operation 


2 2 
= S) 
= 
Pr} <q 
2 o 
3 u 
o oO 
a Lu 
7) a. 
2 ” 
2 
Z 2 CO 
» = 
s < 
> | 
3 =) 
3 O 
< ad 
s <q 
O 
& 9 
oc 


RPG CALCULATION SPECIFICATIONS 
a 
fa) 


Punching 

Instruction 
Punching 
Instruction 


Punching 
Instruction 


a 
iJ 
j 
2 
3 
= 
} 
é 
iH 
ES 


IBM Inwernationel Business Machine Corporation 






IBM International Business Machine Corporetion 


409 
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Figure F-2. RPG II Coding for RLABL Field Entries | 


SAMPLE PROGRAMS 


RPG Linkage Sample Program 1 


In this sample program, the RPG II coding uses the EXIT 
operation to effect linkage to the assembler language 
subroutine SUBRxx (Figures F-3 and F-4). The RLABL 
‘specification names a field called HERE, into which SUBRxx 
moves a character A. When control is returned to the RPG 
II program, a compare operation is performed to determine 
which character was placed in the field HERE. 


RPG Linkage Sample Program 2 


In this sample program, the RPG II coding uses the EXIT 
specification to effect linkage to the assembler subroutine 
SUBRB (Figure F-4). The first RLABL specification 
names a table, TABB, and the second names an indicator, 
IN44; The subroutine refers to both RLABL entries. It 
first tests the indicator. If the indicator is off, control is 
returned to the RPG II program. If the indicator is on, a 
character C is moved into the last looked up entry in the 
table TABB. When control is returned to the RPG II 
program, a compare operation is performed to see whether 
or not the subroutine placed a C in TABB. 


Special 


A System/3 Model 10 Disk System RPG II, Model 12 RPG 
II, or Model 15 RPG II user can link to a subroutine to con- 
trol input/output for a SPECIAL device. This is done by 
providing a link to a user-written routine that performs data 
transfer for the special device. Control cannot be trans- 
ferred from one user assembler subroutine to another. 


The following specifications are for the RPG II file des- 


cription specifications in which the SPECIAL device file is 
defined and the I/O subroutine is named. 


File description entries for SPECIAL device: 


Columns Entries 

6 F 

7-14 Valid RPG II file name 
15 I, O, C, or U 

16 Blank, P, S, D 

17 Blank, E 

18 Blank, A, D 

19 Blank, F 
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20-23 Blank, block length 

24-27 Record length 

28-31 Must be blank 

32 Blank, 1-9 (dual I/O areas are allowed). 

33-39 Must be blank 

40-46 The word SPECIAL 

47-52 Must be blank 

53 Continuation line 

54-59 Name of the user’s subroutine which will 
perform I/O function. The subroutine 
name will be SUBRxx, where x is any 
valid alphabetic character. 

60-70 Must be blank 

71-72 Blank, U1-U8 

73-74 Must be blank 


The following can be used with SPECIAL files: 
@ FORCE operation code. 

@ READ operation code. 

@ File translation. 


e@ *PLACE on output. 


The following cannot be used with SPECIAL files: 
@ CHAIN operation code. 

@ Stacker select. 

@ Spacing and skipping. 

@ *PRINT. 


@ *(asterisk) in column 40 on Output Sheet to print 
constants on cards. 


On Models 10 and 12 systems, care must be taken when 
using the Dual Programming Feature with a special device. 
If SPECIAL for the same device is used in both levels, it 

is the programmer’s responsibility to see that the device 

is ready. 


SPECIAL files can only be processed consecutively. See | The JBM System/3 Basic Assembler Reference Manual, 


Figure F-5 for possible file description entries for SC21-7509, describes the operation codes passed to data 
SPECIAL files. management and the completion codes passed back by data 
management. 


Control passed to the Assembler 
subroutine by, RPG II 





RPG CALCULATION SPECIFICATIONS 


IBM International Business Machine Corporation 





Punching | cravric | [| | [ [ TT] Card Electro Number 
Ea a SUBRA 


Assembler 

Subroutine — 

References the Field HERE 
in the RPG II program and 
returns control to the 

RPG II program. 


| Control returned to RPG I! 


Figure F-3. RPG IH Coding for Sample Program 1 by the Assembler subroutine. 


Factor 1 Operation 





Control passed to the Assembler 
RPG CALCULATION SPECIFICATIONS subroutine by RPG I! 


a a auene 
a 


IBM International Business Machine Corporation 


















Assembler 
Subroutine — 

References the table and 
Indicator in the RPG II 
program and returns con- 
trol to the RPG II program. 















Factor 1 Operation Factor 2 
















A 20 


Figure F-4. RPG II Coding for Sample Program 2 


Control returned to RPG Ii 
by the Assembler subroutine 


File Type File Addition/Unordered 
Fite Designation Length of Key Field or Extent Exit Number of Tracks 

of Record Address Field for DAM for Cylinder Overflow 

Symbolic Name of Number of Extents 


Filename Type of File Label Exit 
Organization 
or Additional Area 


Device 


Labels S/N/E/M 


P/S/C/R/T/D 


1/0/U/C/D 


i Entry 
9 10 17 12 13 14/16 


elt FETT TTT TT EPP ET Sieeel iu 


Note: Shaded columns must be blank. ' 


| Figure F-5. File Description Entries for Special Device Support 
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Appendix G. Summary of RPG I! Specifications 


This appendix contains a brief column-by-column descrip- 
tion of each of the RPG II specification sheets. It is intended 
as a quick reference by programmers who are acquainted 
with RPG II for the IBM System/3 Disk System. Fora 
complete description of each entry, refer to the applicable 
section of this manual. For a complete description of 
telecommunications entries see JBM System/3 RPG II 
Telecommunication Programming Reference Manual, 
SC21-7507. 


INFORMATION COMMON TO ALL FORMS 

RPG II source cards should be in ascending numeric 
sequence by columns 1 through 5. Cards that are out of 
sequence are flagged. Adjacent cards with duplicate 
sequence numbers are not flagged. 


Columns 1-2 (Page) 


Arrange the specifications sheets in the following order and 
number them in ascending sequence: 


1. Control Card and File Description. 
2. Extension and Line Counter. 

3. | Telecommunications. 

4. Input. 

5. Calculation. 


6. Output. 


Columns 3-5 (Line) 


The first two digits of the line number are pre-printed. Use 
the unnumbered lines on the sheet for additional specifica- 
tions or, along with column 5, to insert a line between two 
other completed lines. For example, line 025 would be in- 
serted between lines 02 and 03. 


Column 6 (Form Type) 


This column contains a pre-printed code (H, F, E, L, T, I, 
C, or O) which must be punched into all RPG II specifica- 
tions cards. 
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Column 7 (Comments) 

Enter an asterisk in each line used as a comment line. The 
control card specification line (line 01) cannot be used as a 
comment line. 

Columns 75-80 (Program Identification) 

Insert any valid characters in columns 75-80 of the control 
card to identify the program. This name is used in a pro- 
gram directory which contains the location of your program 
on disk. If these columns are left blank, RPGOBJ is assumed. 


Columns 75-80 on all other specifications cards can contain 
any entries. 


CONTROL CARD SPECIFICATIONS 


Columns 7-9 (Core Size to Compile) 
Leave these positions blank. 


Column 10 (Object Output) 


Entry Object Program is: 

Blank — Written temporarily in object library. 

D — Written temporarily in object library. 

C — Written permanently in object library. 

P — Punched into cards. 

R — Place non-link-edited object program 
in the library as a permanent entry 
(Model 15 only). 

iT — Place non-link-edited object program 
in the library as a temporary entry 
(Model 15 only). 

B — Punch non-link-edited object programs 


(Model 15 only). 


Column 11 (Listing Options) 


Blank © — __ Program listing produced 
B — No program listing produced 
P — Partial program listing produced 


Columns 12-14 (Core Size to Execute) 


Column 12 

Blank,O -— No additional 256-byte increments are 
needed. 

Q — One additional 256-byte increment is 
needed. 

H — Two additional 256-byte increments 
are needed, 

T — Three additional 256-byte increments 


are needed. 


Columns 13-14 


Blank _ Core size available for execution is 
same as core size used for compilation. 
01-61 — Core size available for execution if 


different from core size used for com- 
pilation. Entry is the number of K 
(1K=1,024 bytes) available. 


Column 15 (Debug) 
Blank — DEBUG operation not used. 


1 — DEBUG operation used. 


Column 16-20 


Leave these positions blank. 


Column 21 (Inverted Print) 


Blank — United States format. 
I — World Trade format. 
J — World Trade format (leading zero 
remains for zero balances). 
D — United Kingdom format. 
Columns 22-25 


Leave these positions blank. 


Column 26 (Alternate Collating Sequence) 


Blank — Normal collating sequence used. 
S — Alternate collating sequence used. 
Columns 27-36 


Leave these positions blank. 


Column 37 (Inquiry) 


Blank — Program not interruptable. 
B — Program recognizes inquiry requests. 
I — Inquiry program. 

Columns 38-40 


Leave these positions blank. 
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Column 41 (1P Forms Position) 


Blank — First 1P line printed only once. 
1 — First 1P line can be printed repeatedly 
to allow forms positioning. 
Column 42 


Leave this position blank. 


Column 43 (File Translation) 
Blank — No file translation needed. 


Input, output, update, or combined 
files are to be translated. 


F = 


Column 44 (Punch MFCU Zeros) 
Blank — Leading zeros are removed. 


1 — Leading zeros are used (applies to 


MFCU only). 


Column 45 (Nonprint Characters) 


Blank Program halts if an unprintable char- 
acter is encountered. 
1 —  Nohalt for unprintable character. 
Columns 46-47 


Leave these positions blank. 


Column 48 (Shared I/O on Model 10; External Buffers on 
Program Number 5704-RG2) 


Blank— All 5444 disk files use a separate input/output area. 


1 — All 5444 disk files share a single input/output area 
(Model 10 only). 

E  -— External disk I/O buffers (Program Number 
5704-RG2 only). 

Columns 49-74 


Leave these positions blank. 
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FILE DESCRIPTION SPECIFICATIONS 


Columns 7-14 (Filename) 


Enter a name for each file. The filename can be from one 
to eight characters long, must begin in column 7, and must 
be a valid RPG II name (see Definition of Terms in Chapter 


1). 


Column 15 (File Type) 


I — Input 

O — Output 

U — Update 

C — Combined 
D — Display 


Column 16 (File Designation) 


P — Primary 

S — Secondary 

C — Chained 

R — Record Address. 
T — Table or Array 
D — Demand 


Leave blank for display files and all output files except 
chained output files. 


Column 17 (End of File) 


E — All records from the file must be pro- 
cessed before the program can end. 
Blank — The program can end whether or not 


all records from this file have been 
processed. 


If column 17 is blank or £ for all files, all records from 
every file must be processed before the program can end. 
An E can only be specified here if column 15 contains J, U, 
or C and column 16 contains a P, S, or R. 


Column 18 (Sequence) 
Blank— No sequence checking is to be done. 


A — Sequence checking is done. Records are in 
ascending sequence. 


D  -— Sequence checking is done. Records are in 
descending sequence. 


Sequence checking is required when matching fields are used. 
Column 18 applies to update and combined files and all input 
files except table, array, chained, demand, and record address 
files. 


Column 19 (File Format) 


F — Must be entered for fixed length records. 
Vs — Must be entered for tape files with variable length 
records. 


Columns 20-23 (Block Length) 
Disk: 1-9999 (multiple of record length) 
MFCM: 1-80 
MFCU: 1-96 
DISKET: 1-128 
1442: 1-80 
2501: 1-80 
Printer-keyboard: 1-125 


CRT/keyboard: 1-120, 1-39, 1-279 (depending on file 
type). 


Printer: 1-96, 1-120, or 1-132 (depending on number of 
print positions). 


Tape: 18-9999 (multiple of record length plus the size of 
the buffer offset). For variable length tape records see 
Columns 20-23 (Block Length) under File Description 
Specifications. 


Device independent input and output files: 1-9999 
(multiple of record length). 


Block length entry for files other than disk or tape must be 
equal to record length. 


Columns 24-27 (Record Length) 
Disk: 1-9999 
MFCM: 1-80 
MFCU: 1-96 
1442: 1-80 
2501: 1-80 
Printer-keyboard: 1-125 


CRT/keyboard: 1-120, 1-39, 1-279 (depending on file 
type). 


Printer: 1-96, 1-120, or 1-132 (depending on number of 
print positions). 


Tape: 18-9999 (equal or less than block length). 


Device independent input and output files: 1-9999 


DISKET: 1-128 


Column 28 (Mode of Processing) 


Blank— 1. Sequential by key. 
2. Consecutive 
L  — Sequential within limits. 
R — 1. Random by relative record number. 
2. Random by key. 
3. By ADDROUT file. 
4. 


Direct file load (random load). 


This column must be blank for non-disk files. 


Column 29-30 (Length of Key Field or Record Address Field) 
Indexed file: Length of record key. 


Record address file containing limits: Length of record 
key. 


ADDROUT file: Length of record (always 3). 


Maximum length of a record key is 29 characters. 


Appendix G. Summary of RPG II Specifications 415 


Column 31 (Record Address Type) Columns 40-46 (Device) 


A — Indexed file. Enter the device code for the input/output unit used by the 
file specified in columns 7-14, as follows: 
P — Indexed file with packed keys. 
Input/Output Unit Device Code 
I — ADDROUT file or processed by ADDROUT file. 
IBM 5424 Multi-Function © MFCU1 (Primary Hopper) 
Blank— Sequential or direct file. Card Unit MFCU2 (Secondary Hopper) 


Column 31 applies to disk files specified as input, update, 
or chained output files. 


Column 32 (File Organization or Additional 1/O Area) 


I — Indexed organization. 

T — ADDROUT file. 

1-9 — Sequential or direct file, use two I/O areas for 
the file. 


Blank— Sequential or direct file, use one I/O area for 
the file. 


Columns 33-34 (Overflow Indicator) 


OA-OG, OV — Overflow indicator used to condition 
records in the file. 
Blank — No overflow indicator is used. 


Columns 35-38 (Key Field Starting Location) 


1-9999 Record position in which the key field begins. 


Column 39 (Extension Code) 
E — The file described on this line is a table file, 
array file, or record address file further 


described on extension specifications. 


L = — The file described on this line is a printer file 


futher described on line counter specifications. 
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IBM 2560 Multi-Function 
Card Machine 


IBM 1442 Card Read Punch 
IBM 2501 Card Reader 
IBM 1403 Printer 

IBM 3284 Printer 


IBM 5203 Printer (dual 
carriage) 


IBM 5471 Printer-Keyboard 
IBM 3277 Display Station 


IBM 5444 Disk Storage 


IBM 5445 Disk Storage 
Drive 


IBM 3410 or 3411 Magnetic 
Tape Unit 


Binary Synchronous 
Communications Adapter 


IBM 3741 Data Station 
or Programmable Work 
Station 


IBM 3340 Direct Access 
Storage Facility 


IBM 3344 Direct Access 
Storage Facility 


Device independent 
input and output files 


MFCM1 (Primary Hopper) 
MFCM2 (Secondary Hopper) 


READ42 
READO1 
PRINTER 


PRINT84 


PRINTER (Left Carriage) 
PRINTR2 (Right Carriage) 


CONSOLE 
CRT77 


DISK 


DISK45 


TAPE 


BSCA 


DISKET 


DISK40 (Models 12 and 15 
only) 


DISK40 (Program Number 
5704-RG2 only) 


No entry in Device Code 


Columns 47-52 


Leave these positions blank. 


Column 53 


Labels 


Leave this position blank unless using continuation lines. 


Continuation Lines 


K  -— Continuation record specified for tape, 
SPECIAL, DISK (Model 15), DISK45 (Model 
15), or DISK40 (Model 15). 


Columns 54-59 
Name of Label Exit 

Entry Explanation 

Blank No SPECIAL device used. 

SUBRxx Name of the user-written subroutine 
which will perform the I/O opera- 
tion for a SPECIAL device 

SRyzzz Name of the IBM-written sub- 


routine which will perform the 
I/O operation for a SPECIAL 
device. 


Continuation Line Option 


Entry Explanation 
ASCII ASCII tape file specified. 
BUFOFF Tape input file contains a block 


prefix (used only if ASCII file is 
specified). 


Array Name of array to be used by user. 


Name Written IOS subroutine. 


INDEX User specifies amount of index 


buffer RPG should allocate. 


Columns 60-65 


Core Index 
6-9999 — Number of bytes reserved for core 
index. 
Blank — No core index will be built. 


Continuation Line Entry 


0-99 — Length of the block prefix in an 
ASCII tape input file that specifies 
BUFOFF. 

1-9 — Amount of storage, in 256 byte 


increments, to be provided for 
the index buffer. 


Column 66 (File Addition/Unordered) 
A —_ New records will be added to the file. 


U — Records are to be loaded into an 


indexed file in unordered sequence. 


This column applies to sequential and indexed disk files. 
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Column 67 


Leave this position blank. 


Columns 68-69 (Number of Extents) 


Blank — Single volume file. 


Number of volumes that contain the 
file. 


1-50 - 


For consecutive processing, if any volumes are offline 
during processing, then all volumes must be on removable 
packs. For sequential or random processing, all volumes 
must be on line. 


Column 70 (Tape Rewind) 


R — Rewind tape at end of file 
U — _ Unload tape at end of file 
N _ Leave tape at end of file 


Columns 71-72 (File Condition U1-U8) 


U1-U8 — File is conditioned by the specified 
external indicator. 
Blank — File is not conditioned by an external 


indicator. 


These columns apply to output files and primary and 
secondary input (except table or array input files), update, 
and combined files. A record address file may be condi- 
tioned by an external indicator if its associated primary or 
secondary file is conditioned either by the same indicator 
or by no indicator. 
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Columns 73-74 


Leave these positions blank. 
EXTENSION SPECIFICATIONS 


Columns 7-10 


Leave these positions blank. 


Columns 11-18 (From Filename) 
Enter, left justified, the name of the table or array input 


file loaded at pre-execution time or the name of the record 
address file defined on the File Description Sheet. 


Columns 19-26 (To Filename) 


- If the file named in From Filename is a record address file, 


enter the name of the primary or secondary input or update 
file containing the data records to be processed. If From 
Filename is a table or array file, enter the name of the out- 
put file to which the table or array is written at end of job. 
Leave this entry blank if the table or array is not written 
out. 


Columns 27-32 (Table or Array Name) 


Enter the name of a table or array used in the program. If 
alternating tables or arrays are described, enter the name of 
the table or array whose entry is first on the input record. 
Entries are left-justified and must be valid RPG II names 
(see Definition of Terms in Chapter 1). Table names must 
begin with TAB; array names must not begin with TAB. 


Columns 33-35 (Number of Entries Per Record) 


Enter, right-justified, the number of entries on each table or 
array input record. These columns must contain an entry 
for compile and pre-execution time tables and arrays. These 
columns must be blank for execution time arrays. 


Columns 36-39 (Number of Entries Per Table or Array) 


Enter, right-justified, the maximum number of entries in 
the table or array named in columns 27-32. For alternating 
tables or arrays, corresponding items are considered one 
entry. 


Columns 40-42 (Length of Entry) 


Enter, right-justified, the length of each table or array entry. 
The maximum length is 256 for alphameric entries and 15 
for numeric entries. For packed or binary tables and arrays, 
enter the number of bytes of storage required to represent 
the data in unpacked format. 


Column 43 (Packed or Binary Field) 


Blank —  Alphameric or unpacked numeric data. 
P — Packed numeric data. 
B — Binary numeric data. 


Column 44 (Decimal Positions) 


Blank —  Alphameric table or array. 


0-9 — Number of positions to the right of the 


decimal. 


Column 45 (Sequence) 


Blank — No particular sequence. 
A — Ascending sequence. 
D. — Descending sequence. 


This column describes the sequence of data in a table or 
array. Column 45 must contain an entry if high or low 
look-up is to be used. 


Columns 46-57 

Use these columns when describing a second table or array 

entered in alternating format with the table or array named 
in columns 27-32. These entries have the same significance 
as the corresponding entries in columns 27-45. 


Columns 58-74 (Comments) 


Enter any information you wish to help you understand or 
remember what you are doing in each specification line. 


LINE COUNTER SPECIFICATIONS 


Columns 7-14 (Filename) 

Enter the name of a printer file for which you wish to 
specify a form size and overflow line. 

Columns 15-17 (Line Number - Number of Lines Per Page) 


Number of lines available for printing 
on the printer form. 


12-112 — 


Columns 18-19 (Form Length) 


Enter FL to indicate the previous entry is the form length. 


Columns 20-22 (Line Number - Overflow Line) 


1-112 _ Number of the overflow line. 


Columns 23-24 (Overflow Line) 


Enter OL to indicate the previous entry is the overflow line. 


Columns 25-74 


Leave these positions blank. 
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TELECOMMUNICATIONS SPECIFICATIONS Column 18 (Type of Code) 


A, U _ 
Columns 7-14 (Filename) 


Enter a valid filename for every BSC file your program uses. 


E or blank — 
Column 15 (Configuration) 


ASCII data link control characters will 
be used. When ASCII is used, each 
station must provide file translation 
when it is required. 


EBCDIC data link control characters 
will be used. 


Porblank — Point-to-point, non-switched network. 
Column 19 (Transparency) 
M — Multipoint network, where the control 
station selects the tributary station Y — 


through polling or addressing. System/3 
cannot be the control station. 


S _ Switched network. 
N or blank — 


-Column 16 (Type of Station) 
T — This station will transmit messages 


from this file (transmit only or trans- 
mit with reception of conversational 


This entry is valid only for EBCDIC. 
The transparency feature must be in- 
stalled. The data being transferred may 
contain data link control characters. 


The transparency feature is not used. 
Unpacked numeric or alphameric data 
will be transmitted and received. The 
data being transferred may not contain 
data link control characters. 


reply). The file must be designated as Column 20 (Switched) 


an output or combined file on the File 


Description Sheet and must appear on M —_ 


the Output Sheet. 


R — This station will receive messages into E — 


this file (receive only or receive with 
transmittal of conversational reply). 


The file must be designated as an input S. — 


or combined file on the File Description 
Sheet and must appear on the Input 


Sheet. 
; A = 
Column 17 (Type of Contro!) 
B = 
T — This is a tributary station on a multi- 
point network. System/3 cannot be 
the control station and transmit the Blank — 


polling supervisory sequence. 
Blank — Polling is not used; non-tributary station. 


Column 17 must contain a T if column 15 contains an 
M (multipoint network). 
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The computer operator makes the 
connection between stations by dialing 
the number (manual dial). 


Autocall is to be used. The dial number 
is listed in columns 21-31. 


Autocall is to be used. The entry in 
columns 21-31 is the symbolic location 


of the dial number. 


Autoanswer is used by the called 
station. 


Manual answer is used by the called 
station. 


This is not a switched network. 


Columns 21-31 (Dial Number) 


Numeric — 


Alphameric — 


This is the number to be dialed when 
column 20 contains an E. 


Columns 21-31 must contain a sym- 
bolic name, other than an array name, 
referencing the location of the dial 
number when column 20 contains an S. 
If the BSC file is an input file other 
than a demand or conversational receive 
file, this name must refer to the first 
(or only) element of a table. 


Column 32 (Location of Identification—This Station) 


S ns 


Blank _ 


Switched network. This station’s 
identification is located at the position 
referenced by the symbolic name speci- 
fied in columns 33-39, 


Switched network. The entry in columns 
33-39 is this station’s identification. 


This is a non-switched network or a 
switched network where no ID is desired 
for this station. 


Columns 33-39 (Identification—This Station) 


Alphameric — 


When column 32 contains an E, this 
entry is the actual identification 
sequence of this station (from 2 to 15 
characters). The station identification 
must not contain a control character — 
sequence. 

When column 32 contains an S, this 
entry is the symbolic name of the 
location of this station’s identification. 
The symbolic name must not be an 
array name. If the BSC file is primary 
or secondary, this symbolic name 
must refer to the first element of a 
table. 


Column 40 (Location of Identification—Remote Station) 


S — 


Switched network. The remote 
station’s identification is located at the 
position referenced by the symbolic 
name specified in columns 41-47. 


Blank _ 


Switched network. The entry in 
columns 41-47 is the remote station’s 
identification. 


This is a non-switched network or a 
switched network where no ID is 
desired for the remote station. 


Columns 41-47 (Identification—Remote Station) 


Alphameric — 


When column 40 contains an E, this 
entry is the actual identification 
sequence of the remote station (from 
2 to 15 characters). A station identifi- 
cation must not contain a control 
character sequence. 

When column 32 contains an S, this 
entry is the symbolic name of the 
location of the remote station’s 
identification. The symbolic name 
must not be an array name. If the 
BSC file is primary or secondary, 
this symbolic name must refer to the 
first element of a table. 


Columns 48-51 (Remote Terminal) 


Blank ee 


2770 - 


2771 — 
2772 _ 
2773 — 
2774 — 


2780 - 


Column 52 (ITB) 


I a 


System/3 is not used to communicate 
with the IBM 2770 Data Communi- 
cation System or the IBM 2780 Data 
Transmission Terminal. 


The remote terminal is an IBM 2770. 
If System/3 is transmitting, the out- 
put channel on the IBM 2770 is, 

by default, output channel 1. 


The remote terminal is an IBM 2770, 
output channel 1. 


The remote terminal is an IBM 2770, 
output channel 2. 


The remote terminal is an IBM 2770, 
output channel 3. 


The remote terminal is an IBM 2770, 
output channel 4. 


The remote terminal is an IBM 2780. 


Intermediate block check (ITB) is used. 
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Columns 53-54 (Permanent Error Indicator) 


01-99,L1-L9 — A permanent error indicator should be 


LR, H1-H9 


used with every BSC file. If you are 
using more than one BSC file, each 


should have a permanent error indicator. 


BSC input/output operations must be 
conditioned on all permanent error 
indicators being off. 


Columns 55-57 (Wait Time) 


Numeric — 


Blank ~ 


The length of time in seconds, 1-999, 
that BSC will wait with no messages 
being sent or received before a per- 
manent error condition occurs. 


The system convention for timeout, 
180 seconds, is used. 


Columns 58-59 (Record Available Indicator) 


01-99,L1-L9, — 


LR, H1-H9 


A record available indicator is used 
only when System/3 transmits inter- 
spersed with receive (no conversational 
reply) to System/360-System/370. The 
record available indicator is set on 
when System/360-System/370 wishes 
to transmit to System/3. 


Column 60 (Last File) 


L es 


Blank = 


This BSC input file is processed only 


_ after all other primary and secondary 


input files have been processed. 


This BSC input file does not have to be 
the last input file processed. 


Columns 61-62 (Polling Characters) 


Alphameric — 


Blank _ 


The polling identification of this 
station is needed if this station is part 
of a multipoint network and the BSC 
is a transmit (output) file. 


This station is not transmitting on 
a multipoint network. 


Columns 65-70 (Remote Device) 


Blank 


1442-1 


1442-2 


1443 


0545-3 


0545-4 


2213-1 


2213-2 


2502-1 


2502-2 


5496-1 


5496-2 


System/3 is not used to communicate 
with the IBM 2770 Data Communi- 
cation System or the IBM 2780 Data 
Transmission Terminal. 


The IBM 1442 Card Read Punch (card 
read) is a remote device used with the 
IBM 2780 remote terminal. 


The IBM 1442 Card Read Punch 
(card punch) is a remote device used 
with the IBM 2780 remote terminal. 


The IBM 1443 Printer is a remote de- 
vice used with the IBM 2780 remote 
terminal. 


The IBM 0545 Card Punch, Model 3, 
is a remote device used with the 
IBM 2770 remote terminal. 


The IBM 0545 Card Punch, Model 4, 
is a remote device used with the 
IBM 2770 remote terminal. 


The IBM 2213 Printer, Model 1, is a 
remote device used with the IBM 2770 
remote terminal. 


The IBM 2213 Printer, Model 2, is a 
remote device used with the IBM 2770 
remote terminal. 


The IBM 2502 Card Reader, Model 1, 
is a remote device used with the 
IBM 2770 remote terminal. 


The IBM 2502 Card Reader, Model 2, 
is a remote device used with the 
IBM 2770 remote terminal. 


The 5496 Data Recorder (card read) is 
a remote device used with the IBM 
2770 remote terminal. 


The 5496 Data Recorder (card punch) 
is a remote device used with the IBM 
2770 remote terminal. 


INPUT SPECIFICATIONS 


Columns 7-14 (Filename) 


Enter a valid RPG II filename for every input, update, and 
combined file your program uses. 


Columns 15-16 (Sequence) 


Enter a 2-digit number to assign a special sequence to record 
types in a file and to request that the record type sequence 
be checked by the program. Enter two alphabetic characters 
to indicate that record type sequence is not checked. Alpha- 
betic characters must be used for a chained file. Within a 
file, record types with an alphabetic sequence entry must 

be described before record types with a numeric sequence 
entry. 


Column 17 (Number) 

Blank — Columns 15-16 contain alphabetic 
characters (record type sequence is not 
being checked). 


Columns 15-16 contain numeric char- 
acters; only one record of this type is 
present in each sequenced group. 


Columns 15-16 contain numeric char- 
acters; one or more records of this 
type can be present in the sequenced 


group. 


Column 18 (Option) 


Blank — Record type must be present. 


O — Optional. Record type may or may 


not be present. 


Column 18 is used when record types are being sequence 
checked (columns 15-16 contain numeric characters). 


Columns 19-20 (Record Identifying Indicator, **) 


01-99 — Record identifying indicator. 

L1-L9 — Control level indicator used as a record 
identifying indicator when record type 
rather than control field signals start 
of a new control group. 

LR — Last record indicator. 

H1-H9 — Halt indicator used as a record identi- 
fying indicator when checking for a 
record type that causes an error condi- 
tion. 

ve — Look-ahead fields. 

TR — Spread card. 


Columns 21-41 (Record Identification Codes) 
This field is divided into three identical subfields: 
Columns 21-27 
Columns 28-34 


Columns 35-41 


An AND relationship exists between these three fields. 


Position 
Blank —  Norecord identification code is needed. 
1-9999 — Record position of the record identifi- 
cation code. 
Not 
Blank — Either the record identification code 
is present in the specified record 
position, or no record identification 
code is needed. 
N — Record identification is being used, 


but the identification code is not 
present in the specified record position. 
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C — Entire character. 
Z — Zone portion of character. 
D — Digit portion of character. 


Remember that many characters have either the same zone 
or the same digit portion. 


AND and OR Relationships 


Enter AND in columns 14-16 on the next line of the Input 
Sheet if more than three record identification code subfields 
are needed to identify the record. Enter OR in columns 
14-15 if either one of the codes may be present to identify 
the record. A maximum of 20 AND or OR lines in any 
combination may be used to describe the record identifying 
code. 


Column 42 (Stacker Select) 


Blank — Cards automatically fall into a pre- 
determined stacker 

1-2 _ 1442 stacker into which the card type 
is stacked. 

1-4 — | MFCU or MFCM (Model A2) stacker 
into which the card type is stacked. 

1-5 — MFCM (Model A1) stacker into which 


the card type is stacked. 


Only card from input files and combined files can be 
stacker selected on input. If this column is blank, cards 
from the MFCU, MFCM, or 1442 primary hopper are 
placed in stacker 1, cards from the MFCU secondary 
hopper are placed in stacker 4 and cards from the secondary 
MFCM hopper are placed in stacker 4 (MFCM Model A2). _ 
stacker 5 (MFCM Model A1). 


Column 43 (Packed or Binary Field) 


Blank — Input field in upacked decimal format. 
P — Input field in packed decimal format. 
B — Input field in binary format. - 


Columns 44-51 (Field Location) 


Enter two 1-4 digit numbers to identify the beginning of a 
field (From) and the end of a field (To) in the input record. 
These entries are identical for a 1-position field. 
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Column 52 (Decimal Position) 
Blank —  Alphameric field. 


0-9 — The number of decimal positions in the 


numeric field named in columns 53-58. 


This column must contain an entry for numeric fields. 


Columns 53-58 (Field Name) 
These columns can contain: 


e A valid RPG II field name (see Definition of Terms in 
Chapter 1) for each field defined in Field Location. 


e@ An array name or array element. 


e@ PAGE, PAGE], or PAGE2 special words. 


Columns 59-60 (Control Level) 


L1-L9 —_ Field described on this line is a control 
field. 
Blank — Field described is not a control field. 


These columns must be blank for chained or demand files. 


Columns 61-62 (Matching Fields) 


Enter a matching level identifier (M1-M9) to indicate match- 
ing fields and sequence checking when you have two or more 
input, update, or combined files with match fields. When 
you have just one input, update, or combined file with match 
fields this entry causes only sequence checking. 


Columns 63-64 (Field Record Relation) 


01-99 — Record identifying indicator assigned 
to a record type. 

L1-L9 — Control level indicator previously used. 

MR — Matching record indicator. 

U1-U8 — External indicator previously set. 

H1-H9 — Halt indicator previously used. 


The following general rules apply to this entry: 


1. All fields without field record relation should be 
specified before fields with field record relation. 


2. All fields with the same field record relation entry 
should be entered on consecutive lines. 


3. All parts of a split control field must have the same 
field record relation entry and must be described on 
consecutive specification lines. 


Columns 65-70 (Field Indicators) 


01-99 — Field indicator. 


H1-H9 — Halt indicator (when checking for an 


error condition in the data). 
An indicator used in these columns is turned on if the 
condition tested for is true. For numeric fields, more than 
one condition may be tested at a time, but only the indicator 
which reflects the result of the test is turned on, the others 
are turned off. If a field is alphameric, an indicator can. 
only be specified in Zero or Blank (columns 69-70). 
Columns 71-74 


These positions should be blank. 


Columns 75-80 (Program Identification) 


See Chapter 2. 


CALCULATION SPECIFICATIONS 


Columns 7-8 (Control Level) 


Blank — Operation done at detail time. 

LO — Calculation is performed at total time 
(always on). 

L1-L9 — Calculation operation is done when the 
appropriate control break occurs or an 
indicator is set on. 

LR -— Calculation operation is done after the 
last record has been processed or after 
LR has been set on. 

SR — Calculation operation is part of a sub- 


routine. 


AN or OR can be entered in these columns to indicate that 
indicators on the line are in an AND or OR relationship 

with indicators on the preceding line. A maximum of seven 
AN, OR, or mixed AN and OR lines are allowed to condition 
an operation. Entries must be in the order listed. 


Columns 9-17 (Indicators) 

Enter one to three indicators. Any indicators except 1P and 
LO can be used. Columns 9, 12, and 15 may contaim blank 
or N. An AND relationship exists between indicators on a 
line. Additional lines may be used containing indicators in 
columns 9-17 which are in an AND or OR relationship with 
those on the first line by entering AN or OR in columns 
7-8. 

Columns 18-27 (Factor 1) and Columns 33-42 Factor 2 
Factor 1 and Factor 2 may contain the following entries: 

1. Name of any field that has been defined. 

2. Alphameric or numeric literal. 


3. Subroutine, table or array name, or array element. 


4. Date field name (UDATE, UMONTH, UDAY, 
UYEAR). 
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5. Special name, PAGE, PAGE1, or PAGE2. 

6. Label for a TAG, BEGSR, or ENDSR operation 
(Factor 1) or a label for a GOTO or EXSR operation 
(Factor 2). 


7. Filename for a CHAIN, DEBUG, DSPLY, READ, 
- SETLL, or FORCE operation (Factor 2). 


Columns 28-32 (Operation) 


Enter an operation code, left justified. 


Columns 43-48 (Result Field) 


Enter the name of the field, table, array, or array element 
that holds the result of the operation specified in columns 


28-32. If the field named in Result Field has not been defined 


in extension, input, or previous calculation specifications, 
it must be defined by making entries in columns 49-5 2. 
Columns 49-51 (Field Length) 

Blank — Field defined elsewhere. 
1-256 — Result field length. 
Maximum length of a numeric field is 15 digits; maximum 


length of an alphameric field is 256 characters. Entry must 
be right justified. 


Column 52 (Decimal Position) 


Blank —  Alphameric field or numeric field 
described elsewhere. 
0-9 — Number of decimal places in a numeric 


result field. 


Column 53 (Half Adjust) 
Blank — Do not half adjust the Result Field. 
H — Half adjust the Result Field. 


Half adjust is allowed only with arithmetic operations. 
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Columns 54-59 (Resulting Indicators) 


Enter any of the following indicators: 01-99, H1-H9, L1- 
L9, LR, OA-OG, and OV. Columns 54-59 are used for four 
purposes: 


1. To test the value of the result field after an arithmetic 
operation. 


2. Tocheck the outcome of a CHAIN, LOKUP, COMP, 
TESTB, or TESTZ operation. 


3. Tospecify which indicators to SETON or SETOF. 


4. To indicate end of file for the READ operation code. 


Arithmetic Operations: Enter up to three indicators to be 
turned on whenever the result is positive (indicator in col- 
umns 54-55), negative (indicator in columns 56-57), or zero 
(indicator in columns 58-59). 


Compare Operations: Enter up to three indicators to be 
turned on whenever Factor 1 is greater than Factor 2 
(indicator in columns 54-55), Factor 1 is less than Factor 2 
(indicator in columns 56-57), or Factor 1 is equal to Factor 
2 (indicator in columns 58-59). 


LOKUP Operation: Enter one or two indicators in High, 
Low, Equal, High and Equal, or Low and Equal. If there is 
an entry in the High or Low columns, the table name in 
Factor 2 should be specified as ascending or descending on 
the Extension Sheet. 


TESTB Operation: Resulting indicators have the following 
meaning for this operation: 


@ Columns 54-55: An indicator in these columns is turned 
on if each bit specified in Factor 2 is off in the Result 
Field. 


@ Columns 56-57: An indicator in these columns is turned 
on if two or more bits were tested and of mixed status 
(some bits on and some bits off). 


@ Columns 58-59: An indicator in these columns is turned 
on if each bit specified in Factor 2 is on in the Result 
Field. a Es 


TESTZ Operation: Enter one to three indicators to reflect 
the zone of the leftmost character in the Result Field, as 
follows: 


@ Columns 54-55: Turned on by the zone portion of the 
characters & and A-I. 


© Columns 56-57: Turned on by the zone portion of the 
characters } (bracket), — (minus), and J-R. 


© Columns 58-59: Turned on by the zone portion of any 
character not listed above. 


CHAIN Operation: Enter an indicator (optional) in columns 
54-55 to be turned on in the case of a record-not-found 
condition. 


SETON and SETOF Operations: Enter up to three indica- 
tors in columns 54-59 to be turned on (SETON) or turned 
off (SETOF). 


READ Operation: Enter an indicator in columns 58-59 to 
be turned on after each read operation if an end-of-file 
condition is reached. Once end-of-file is reached, a halt 
occurs after each read operation if no indicator is entered. 


Columns 60-74 (Comments) 
Enter any meaningful information you wish to help you 


understand or remember what you are doing in each speci- 
‘fication line. 


OUTPUT-FORMAT SPECIFICATIONS 


Columns 7-14 (Filename) 

Enter a valid RPG II filename for each output, combined, 
and update file used by your program. Each filename need 
be specified only once, on the first line describing that file. 


Columns 14-16 (AND/OR Relationship) 


Enter AND in columns 14-16 or OR in columns 14-15 if 
output records are in an AND or OR relationship. 


Cotumn 15 (Type) 


H — Heading records. 
D — Detail records. 

T — Total records. 

E — Exception records. 


Columns 16-18 (Add a Record) 

Enter ADD in these columns if records are added to an input, 
update, or output disk file. An A must also be coded in 
column 66 of the File Description sheet for the file to which 
a record is added. 


Column 16 (Stacker Select/Fetch Overflow) 


Blank 


Cards automatically fall into certain 

stackers as follows: 

Primary hopper — stacker 1 (MFCU 
and MFCM) 

Secondary hopper — stacker 4 (MFCU 
and MFCM Model A2) 
stacker 5 (MFCM Model Al) 


1-5 — Indicates the stacker you wish. 


F — Fetch overflow. 

Only combined or output files can be stacker selected on 
Output specifications. Stacker selection on output over- 
rides stacker selection on input. 

If F is entered, the overflow routine is fetched when over- 
flow occurs, before the usual time in the cycle. 

Columns 17-22 (Space/Skip) 

If these columns are blank, single spacing occurs after each 
line is printed. Spacing and skipping are not allowed on the 
printer keyboard. 

Columns 17-18 (Space) 

Enter a number (0-3) under the appropriate column to indi- 


cate the number of lines spaced before or after a line is 
printed. 
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Columns 19-22 (Skip) 


Blank — No skipping. 
01-99 — Lines 1-99, 
A0-A9 — Lines 100-109. 
BO-B2 — Lines 110-112. 


Enter one of the 2-digit numbers listed above to indicate 


the next line printed. All line numbers between are bypassed. 


Enter the number in the Before or After columns, depending 
on whether you want skipping to occur before or after the 
line is printed. . 


Columns 23-31 (Output Indicators) 


Enter one to three indicators. Any indicator may be used. 
Columns 23, 26, and 29 may contain blank or N. JN pre- 
ceding an indicator means the output operation will be done 
only if the indicator is not on. An AND relationship exists 
between indicators on a line. Additional lines of indicators 
in an AND or OR relationship may be used by entering AND 
in columns 14-16 or OR in columns 14-15 of each additional 
line (up to 20). 


Columns 32-37 (Field Name) 
Enter one of the following to name every field written out: 
e Any field name previously defined in this program. 


@ The special words, PAGE, PAGE], PAGE2, *PLACE, 
*PRINT, UDATE, UDAY, UMONTH, and UYEAR. 


those 
a Bhi 


e A previously defined table name, array name, or array 
element. 


These columns must be blank if a constant is entered:'on 


columns 45-70 of the line. If an entry is made under Field 
Name, columns 7-22 must be blank. 


428 


Column 38 (Edit Codes) 
Enter an edit code in column 38 when you want to: 
1. Suppress leading zeros for a numeric field. 


2. Omit a sign from the low order position of a numeric 
field. 


3.  Punctuate a numeric field without setting up your own 
edit word. 


A table summarizing the edit codes that can be used is 
printed above columns 45-70 on the Output Sheet. 


Column 39 (Blank After) 


B — Field is reset to blank or zero after 
writing. 
Blank — Field is not reset after writing. | 


Numeric fields are set to zero and alphameric fields are set 
to blanks. This column must be blank for look-ahead and 
update fields. If the field name specified with Blank After 
is a table name, the element of the table looked up last will 
be blanked or zeroed. 


Column 40-43 (End Position in Output Record) 

Columns 40-43 indicate the location on the output record 
of the field or constant written. Enter the number of the 
position occupied by the rightmost character of the output 
field. The End Position entry must not be greater than the 
record length. 


Printing on Cards (MFCU) 


If you want to print fields.on cards in other than the posi- 
tions which correspond to the punch positions, you must: 


1. Name the field in columns 32-37. 
2. Place an * (asterisk) in column 40. 


3. Specify an end position for that field in columns 40- 
43. The maximum end position entry is 128. 


Printing on Cards (MFCM) 


If you want to print fields on cards in print positions other 
than those provided by *PRINT, you must: 


1.: Name the fields, in columns 32-37. 
2. Specify a print head number (1-6) in column 41. 
3. Specify a print end position (01-64) in columns 


42 and 43 (the leading zero in column 42 is man- 
datory). 


Column 44 (Packed or Binary Field) 


Blank — Field is unpacked numeric or alpha- 
meric data. 

P — Field is packed decimal numeric data. 

B — Field is in binary format. 


Packed and binary fields can be output to disk, tape, 1442, 
or MFCM, but should not be printed. Column 44 must be 
blank with *PLACE fields, *PRINT fields, and asterisk in 
column 40. ; 


18 


Columns 45-70 (Constant or Edit Word) 


Constant: The following rules apply to constants: 
1. Field Name (columns 32-37) must be blank. 


2. | Aconstant must be enclosed in apostrophes. Enter 
the leading apostrophe in column 45. 


3. An apostrophe in a constant must be represented by 
two apostrophes. 


4. Up to 24 characters of constant information can be 
placed in one line. Additional lines may be used, but 
each line must be treated as a separate line of constants. 
The end position of each line must appear in columns 
40-43. 


Edit Word: Enter any edit word to specify editing of num- 
eric fields. Edit words must be enclosed by apostrophes. 
Constants are allowed within edit words. 


Edit words are not used with edit codes. However, when 
edit codes 1-4, A-D, and J-M are used, columns 45-47 may 
contain an * (to denote asterisk fill) or a $ (to denote a 
floating dollar sign). 
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Appendix H. Programming Tips 


MAIN STORAGE SAVING TECHNIQUES 


When your program is too large to fit into the execution 
main storage size, you may want to use some main storage 
saving techniques to help reduce the program size. Before 
you can use these techniques effectively, however, you 
need to understand (1) how the RPG II Compiler creates 
overlays to make a program fit into the main storage avail- 
able for execution and (2) how the compiler determines 
when a program is too large to fit into the main storage © 
available for execution. This section will discuss the over- 
lay process and then give you somé suggestions for saving 
main storage. 


Overlay Process for Models 10 and 12 


When your program exceeds the available storage for pro- 
gram execution, the RPG II compiler places some RPG II 
object program routines on disk. These routines are then 
called into main storage as they are needed by your pro- 
gram. This is known as the overlay process. 


When the overlay process is used, main storage is divided 
into two main parts: the Root segment and the Overlay 
area. 


The Root segment contains constants and data used more 
than once during program execution. For this reason, the 
Root segment always remains in main storage. The Root 
segment may be used by routines in the Overlay area. The 
Root segment can call a routine in the Overlay area by using 
a branch instruction. 


The Main Overlay area contains the major routines of the 
RPG II object program. Routines in this area may be called 
by the Root segment or by other routines in the same main 
overlay. | 


Some large programs require that storage be divided into two 
additional parts: the Secondary Root segment and the Sub- 
overlay area. The Secondary Root segment is used to 
supplement the Root segment. If the Root segment and the 
Overlay area fill main storage, the Secondary Root segment 
is not created. The Suboverlay area, created by the RPG II ~ 
compiler, contains subroutines and other RPG II code 
needed to support a routine in the Main Overlay area.. 
Figure H-1 shows the location of the main storage areas. 


430 


End of Supervisor 


Root Segment 


Overlay Fetch Routine 


‘Main Overlay Area 


Overlay Area 


Suboverlay Area 


Secondary Root Segment 





: 


Figure H-1. Models 10 and 12 RPG II Storage Map 


Creating the Overlays 


In order to create overlays, the compiler must first deter- 
mine which routines will go into the Main Overlay areas and 
which routines will go into the Suboverlay areas. Then it 
calculates the size of the largest Main Overlay and the size 
of the largest Suboverlay. These sizes are rounded off up- 
wards in increments of 256 bytes (1 sector). The compiler 
then adds the lengths of the Root segment, the largest Main 
Overlay, and the largest Suboverlay. If the sum is larger 
than the available storage, your program is too large, and 
main storage core saving techniques must be used if the 
program is to be run. 


Special Open/Close 


Special Open/Close is used when the overlay requirements 
for Open and Close exceed the overlay requirements for the 
rest of the program. 


Special Open/Close can be easily identified because overlay 
$##002 is the first overlay identified in the main storage 
usage map (see Figure H-2). 


The first load will bring in the Root, the Overlay Fetch 
Routine, the Overlay Fetch Area, and a special transfer 
vector to call the Open overlay. Open is completely self- 
contained and does not need any of the non-overlay code. 
When Open is complete, Overlay 1 is loaded. Overlay 1 
consists of all code that is identified as non-overlay and was 
not loaded during the first load. The program then executes 
as a normal overlay program until Close is needed. At this 
time, Close is brought into main storage starting at the 
Overlay Fetch Area and using as much main storage as is 
needed. 


The Overlay Fetch Area size for the rest of the program can 
be found by subtracting the start of the Overlay Fetch Area 
from the lowest start address of the non-overlay code that 
was not included in the first load. For example, INPUT 
CTRL RTN starts at 15E1, so 15E1 minus 13E]1 equals . 
X‘200’ — the Overlay Fetch Area size. 


Saving Core 


When the compiler finds that your program is too large, an 
error message is written. You can reduce the storage needed 
for your program either by using some general main storage 
saving techniques or by reducing the size of the overlays. 


General Main Storage Saving Techniques 
Some of the techniques you can use are: 


1. Divide your program into separate tasks, creating a 
separate program for each task. For example, suppose 
you want to update a file and print a listing of the 
updated file. You can save main storage by updating 
the file with one program and printing the listing with 
another program. 


2. Eliminate unreferenced indicators. Eliminating un- 
referenced indicators can eliminate the instructions 
required to set the indicators on and off. 


4. 


Eliminate unnecessary conditioning indicators. Two 
possible forms of unnecessary indicator tests are: 


a. If only one type of input record is to be pro- 
cessed, the indicator associated with that record 
will always be on except during the first detail 
output time. It is, therefore, not necessary for 
any calculation to be conditioned with this 
indicator. 


b. | When two subsequent operations on the same 
result field are conditioned on opposite indica- 
tor conditions, one of the conditions is not 
necessary. For instance, the NO9 conditioning 
is not required in this example: 


NO9 Z-ADD 
09 Z-ADD 


FLD FLDB 
FLDC FLDB 


Note: This technique may not work for cer- 
tain operations if the same field is used as the 
result field and as factor 1 or factor 2. 


Reuse calculation work areas and temporary hold 
areas. Once the data stored in these areas is used for 
the last time in a given cycle, the area is available. 
Reusing these areas can eliminate the need for two or 
more additional areas to be defined. 


Note: Be sure you do not mix alphameric and nu- 
meric fields. | 


Reuse input field name areas. In some instances, two 
or more input files may have fields that always con- 
tain identical information. These fields can be given 
the same field name in order to use the same main 
storage area. 


Another way to reuse input field areas is to.use the 
same names for fields in two files. This can be done 
only if both fields have the same attributes (length, 
alphameric/numeric, packed binary) and each field is 
only used in the cycle in which the record is processed. 
Both files cannot be used during the same cycle. 


Reduce calculation work area sizes. Be sure that no 
work area has been defined as larger than it needs to 
be. This may cause a warning that the result field may 
not be large enough, but if you know that the largest 
possible number will fit into the areas specified, you 
may continue. 
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10, 


11. 
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Include the necessary intervening blanks when describ- 
ing alphameric fields and constants for output. This 
will make the fields adjacent. The output optimiza- 
tion phase will move all adjacent fields and constants 
with one instruction instead of using one instruction 
to move each line. 


Not Optimized Optimized 


5 ‘DAILY’ 18 ‘DAILY TRANSACTIOND’ 


17 ‘TRANSACTION’ 26 ‘REGISTER’ 


26 ‘REGISTER’ 


Note: This programming tip is valid only when the 
alphameric fields and constants are unique; in this 
case the fields are stored in consecutive storage lo- 
cations and can be moved to a print line with one 
instruction. When using identical output constants, 
a move instruction is required for each print line 
moved. 


Design files to contain record lengths that are an even 
multiple of 256 bytes or that will divide into 256 
bytes an even number of times. 


Design files so that match fields and control fields are 
assigned the same position within all record types. 


Do not designate a field as numeric unless the field is 
to be used in a numeric operation in the program. 
This can save on the amount of storage required to 
store the field and can allow the input and output 
fields transfer routine to.be optimized. 


Use only one type of file organization in a program 
(indexed, direct, or sequential). Also, use the same 
method of processing where possible. This can reduce 
the disk data management main storage requirements. 
Some unit record data management can also be elimi- 
nated by transferring unit record files to disk. 


12. 


13. 


14. 


15. 


16. 


17, 


18. 
19. 
20. 


21. 


On Models 10 and 12 systems, the shared input/ 
output access method (SIAM) can be used to pro- 
cess disk files. This will reduce the storage required 
even on programs with only one disk file. 


Note: Using SIAM may decrease program throughput. 


Group calculation statements together that are con- 
ditioned by the same indicators. When a large num- 
ber of indicators are required, try to use GOTO or 
EXSR to reduce the number of indicator tests re- 
quired on each statement. 


When using TESTB, BITON, or BITOF, use the actual 
bit pattern in factor 2. 


Do not use half adjust unless absolutely necessary. 


Try to use either factor 1 or factor 2 as the result 
field whenever possible. 


Try to use numeric fields of the same length and with 
the same number of decimal positions. If the fields 
cannot be the same length, try to have the number of 
decimal positions the same. (see Appendix I. for an 
example.) 


Do not sequence check your records unless absolutely 
necessary. 


Use OR lines rather than multiple record lines because 
OR lines require less code. 


Specify the fields in a record in ascending order by | 
record position. 


Do not use halt indicators unless absolutely necessary. 


Reduce the Overlay Size (Models 10 and 12) 


To reduce the size of the overlay, you can reduce the size 
of the Root segment or the Overlay areas, First, however, 
you must identify the contents of the Root segment and the 
largest overlays in main storage. Then you can determine 

if the contents of these areas can be reduced to fit into the 
main storage available for execution. 


The contents of the Root segment, main Overlay area, and 
Suboverlay area can be found by using the program listing. 


Two sections of the program listing are used to determine 
the contents of the main Overlay and Suboverlay areas. 
The section shown in Figure H-3 tells the: 


1. Overlay name 
2. | Number of sectors in the overlay 
3. Start address of the overlay 


The start address separates main overlays and suboverlays. 
Two start addresses appear in the Start Address column. 
The lower address (1A97) identifies a main overlay; the 
higher address (1097) identifies a suboverlay. 


The Text Sectors column indicates the largest overlays. 
In Figure H-3, overlays 002 and 005 are the largest subover- 
lays; overlays 007 and 008 are the largest main overlays. 


Relate the name given in the Overlay Name column shown 
in Figure H-3 to the Core Usage of RPG II Code séction 
shown in Figure H-4. The Name and Title columns in this 
section identify the routines or subroutines in the overlay. 


Note: If overlay 001 does not appear in the Overlay Name 
column, a special Open/Close overlay construction has 
taken place. When this occurs, overlay 001 is not treated 
as an overlay, but remains in main storage. 


After identifying the Root segment and the largest main 
overlays and suboverlays, you can determine whether they 
contain routines that can be manipulated to reduce the over- 
lay size. The following routines can be controlled: 

1, Input Records 

2. Detail Calculations 

3. Total Calculations 

4. Detail Output 

5. Total Output 

Following are some main storage saving techniques that 


can be used for these routines. These techniques may not 
necessarily work for all programs. 


Input Records: One or more of the input or update files 

can be processed as a demand or chained file, using the READ 
or CHAIN operation code. With a demand or chained file, 
the instructions to read the file can be moved into the Total 
or Detail Calculations routine. 


Note: Total calculations will not be done on the first cycle. 
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CIRE USAGE JF RPGIL CODE 


START NAME IF CULE NAME TITLE 
ADOR OVERLAY LENGTH 
1000 0300 RGRUUT ROUT 
1300 voEl RGSUBS UVERLAY FETCH RJUTINE 
13E1 0400 RGSUBS UVERLAY FETCH AREA 
1638 VOL RGMAIN INPUT MAINLINE 

Root L74C 0008 RGSUBS TRANSFER VECTOR 
16CC 2054 RGSUBS RECURD IO. 
1726 0026 RGSUBS CUNTROL FIELDS 
L5EL Q05A RGSUBS INPUT CTRL RIN 
13EL1 $##002 v09¢ RGSUBS SUBSEG 
13€9 $##002 OUL45 >$MFRD MFCU READ 
1757 U06F RGMAIN INPUT FIELDS 
17CC 9069 RGMAIN VETAIL CALCS 

é LaEA 008 RGSUBS TRANSFER VECTOR 

oot 17C6 0006 RGSURS CONSTANTS 
18A7 0043 $$PGRI RESET RESULTING INDR 
1835 vo72 S$PGAA TAG FETCH 
L3EL $##003  v169 $$PGLC LOKUP ROUTINE 
L8F5 0008 RGMAIN TOTAL OUrPUT 

oar 1990 0024 RGMAIN LR & OVERFLUW PROCESSING 
19C1 o0u8 RGSU8S TRANSFER VECTOR 
1900 v09v RGSUBS UUTPUT CTRL RTN 
13€0 $##004 vd1D RGSUBS UVERFLOW SUBSEGMENT 
13EL $##004 vovc RGSUSS  SUBSEG 
140A $##004 VUFB $$LPKT 5203 PRINT 
L49F $##005 00385 RGMAIN UPEN 
16LF $##005 v021 RGSUBS TRANSFEK VECTOR 
13El $##005 v99D RGSUBS UUTPUT CIRL RIN 
148A $##005 0015 RGSUBS CONSTANTS 
147E $##005 vuvC RGSUUS SUBSEG 
1524 $##005 OOFH $$LPRT 5203 PRINT 
LS7C =©$##006. 9021 RGMAIN CLOSE 


174C S$##006 JILd RGSJBS TRANSFER VECTJUR 


L3E1 $##006 UVUIVD RGSUBS) VUTPUT CTRL RIN 
148A $##006 JOF2 RGSUBS CONSTANTS 
1590 $##006 J0B4 RGSUBS LR PRUCESSINS 
L47E $##006 o00C RGSUBS SUBSEG 
1651 $##006 OOFB $$LPRT 5203 PRINT 
02529 XRGEL6 TOTAL CURE USAGE REQUIRED TU EXeECcuUTe 
03333 TOTAL CURE USAGE REQUIRED TU EXECUTE WITHUUT OVERLAYS 
OVERLAY NAME RELATIVE START C/T/S) #4 TEXT SECTORS START AJURESS 
$#HOOL vO VI O05 0% 13E1 
‘  $##OO2 vO vo OC 02 13E1L 
$# #003 00 OO OF 02 13E1 
$##004 90 vO i12 U2 13t1 
$##005 vO vO 15 03. 13€1 
$##006 00 6Ol Ol O+ L3E1 


TOTAL NUMBER JF LIBRARY SECTURS REQUIRED 30 


Figure H-2. RPG II Usage Map (Models 10 and 12) 
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Detail or Total Calculations: Use the following techniques: 


1. 


Use subroutine calculations. In some instances this 
may increase, rather than decrease, the storage 
required due to the nature of the existing calculation 
routines. 


However, it may reduce the overall main storage 
requirements. 


Note: If one subroutine calls another subroutine, 
both subroutines must be in main storage at the same 
time. This may increase the size of the suboverlay 
area and the total storage required. To ensure the 
smallest requirement, do not call a subroutine from 
another subroutine. 


Eliminate exception output if possible. This will move 


the logic for those output operations to either Total 
or Detail Output routines. 


Eliminate read and/or chain operations by using 
matching records and processing consecutively. This 


will move the logic to Input Records routine. 


Move part of the detail calculation logic to total calcu- 


lations (or total calculation logic to detail calculations). 


Note: Total calculations will not be done on the first 
cycle. 


OveRLAY NAME RELATIVE START C/T/S 


SHROOL 00 oO 15 


Suboverlays 


SB#H#OO4G oOo Oo! 06 


Largest SH O02 00 00 17 
Cee 00 OL 04 


BHHOOS oo Ol 08 
b# #006 oo Ol oD 


Largest eee 00 o1 10 
Overlays 


SH #006 00 01 14 


Figure H-3. Overlay Identification Area (Models 10 and 12) 


Detail or Total Output: Use the following techniques: 


1. Use exception output. This will move part of the 
output logic to Detail or Total Calculation routines. 


2. Do some of the output at total (or detail) output 
time. This moves logic to the Total (or Detail) Out- 


put routine. 


3. Do not specify blank after for fields. Instead, clear 
them at the beginning of detail or total calculations. 


# TEXT SECTORS START ADDRESS 


Ol co7 
04 1c97 
Ol C97 
O1 1A9 
04 C97 
02 1A9 
03 1A97. 
03 1A9 


Overlays 


Suboverlays 
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Suboverlay 
002 


Suboverlay 
005 


Overlay 
007 


Overlay 
008 


START 


.ADDR 


1000 
1971 
182C 
1A97 
2146 
221F 
21E€6 
1c9?¢ 
2097 
ico? 
1C9¥F 
1027 
1D40 
1083 
OAc 
1DOF4 
lEIC 
1E9D 
1EB2 
1F 31 
lFSA 
1F76 
1FAS 
2248 
22387 
1C97 
1A97 
229b 
234¢e 
23AD 
229E& 
1c97 
1CA3 
1028 


1D44 


1067 
1082 
LOFs 
1E20 
1EAI 
1EB6 
1F 35 
LFSt 


_LFT7A 


1FAY 
23C3 
1AC3 
2Z23Ct 
1AAS3 
1A97 
LAE7 
lAFa 
1B4F 
1AA3 
1B67 
lAGTZ 
1bAtE 
LAAS 
LA97 
1GGA 
1830 


NAME IF 
OVERLAY 


#S5001 


#$$002 
#4$002 
#45002 
#55002 
#%S002 
#43002 
#3$002 
#53002 
#353002 
#L$002 
#33002 
#53002 
#43002 
#$SO002 


#343003 
#SSO004 


#5005 
#33005 
#5%005 
#35005 
#$$005 
#33005 
#23005 
#%%005 
#35005 
#23005 


#23005 
#23005 
#43005 
#43005 


#33006 


#3$0U6 
#33006 
#53006 
#532006 
#5007 
#34$007 
#SSO007 
#53007 
#5007 
#33008 
#%$008 
#%$008 
#45008 


-Figure H-4, RPG II Usage Map (Models 10 and 12) 
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CODE 
LENGTH 
062C 
0126 
0145 
0600 
OOAY 
002c 
0034 
0026 
00B4 
0008 
0088 
0019 
0043 
002% 
0046 
0028 
0081 
0015 
00 7F 
0029 
Ooo1ic 
O02F 
0015 
003C 
0016 
O0D4 
0016 
0001 
OOSF 
0016 
00b0 
000C 
0086 
0019 
0043 
00268 
0046 
0026 
oo08sl 
0015 
OO7F 
0029 
001c 
OO2ZF 
0015 
OOOB. 
0024 
0010 
0020 
o0ooc 
0000 
0160 
COls 
OOAC 
0047 
o00c 
0160 
QO9A 
00oc 
0160 
000D 


05086 


NAME 


RGRUOT 
RGSUBS 


$$MFRD_ 


RGSUBS 
RGMAIN 
RGSUBS 
RGSUBS 
RGSUBS 
RGSUBS 
RGSUbS 
SSISUL 
$$SRCR 
$$SRIC 
SSSRIF 
S$SRIU 
$$SRLP 
$$SRMO 
$$SRPD 
$E$SRRC 
$SSRRI 
$SSRTC 
$$SRBP 
$$SRRD 
RGMAIN 
RGSUBS 
3$PGBO 
RGMALN 
RGSUBS 
RGMALN 
RGSUBS 
RGSUBS 
RGSUBS 
$SISUL 
$$SRCR 
$SSSRIC 
S$SRIF 
$SSSRIUV 
$$SRLP 
$$SRMO 
$$SRPD 
SSSRRC 


$SSRRI 

$SSRTC 
$$SRBP 
$$SRRD 
RGMAIN 
RGMAIN 
RGSUBS 
RGSUBS 
RGSUBS 
RGSUBS 
S$$LPRT 
RGMAIN 
RGSUBS 
RGSUBS 
RGSUBS 
SSLPRT 
RGMAIN 
RGSUbS 
SSLPRT 
RGSUBS 


RAFUG6 


CORE USAGE OF RPGII CODE 
TITLE 


ROOT 
OVERLAY FETCH RUUTINE 
MFCU READ 

UVERLAY FETCH AREA 
INPUT MALNLINE 
TRANSFER VECTOR 
RECORD ID 

CONTROL FIELDS 
INPUT CTRL RTN 
SUBSEG 

DISK IDX SEG UPDATE BY LIMITS 
SYSTEM SUBR 

SYSTEM SUBR 

SYSTEM SUBR 

SYSTEM SUBR 

SYSTEM SUBR 

SYSTEM SUBR 

SYSTEM SUBR 

SYSTEM SUBR 

SYSTEM SUBR 

SYSTEM SUBR 

SYSTEM SUBR 

SYSTEM SUBR 

INPUT FIELOS 
TRANSFER VECTOR 
CONVERT TU DECIMAL 
DETAIL CALCS 
CONSTANTS 

DETAIL OUTPUT 
TRANSFER VECTOR 
OUTPUT CTRL RTN 
SUB SEG 

DISK IDX SEQ UPDATE BY LIMITS 
SYSTEM SUBR 

SYSTEM SUBR 

SYSTEM SUBR 

SYSTEM SUBR 

SYSTEM SUBR 

SYSTEM SUGR 

SYSTEM SUBR 

SYSTEM SUBR 

SYSTEM SUBR 

SYSTEM SUBR 

SYSTEM SUBR 

SYSTEM SUBR 

TOTAL OUTPUT 

LR & OVERFLOW PROCESSING 
CONSTANTS 

OVERFLOW SUBSEGMENT 
SUBSEG 

SUBSEG 

5203 PRINT 

CLOSE 

CONSTANTS 

LR PROCESSING 

SUB SEG 

5203 PRINT 

OPEN 

SUBSEG 

5203 PRINT 

SUBSEG 


TOTAL CORE USAGE REQUIRED TO EXECUTE 


PERFORMANCE IMPROVEMENT TECHNIQUES 


Some relatively simple program changes may make signifi- 
cant improvements in your program’s performance. How- 
ever, these performance techniques will not improve per- 
formance in all programs. Therefore, study these techniques 
and determine if you think they will improve your program’s 
performance before you use them. The performance im- 
provement techniques are: 


1. Unblock all randomly processed indexed files. Block- 
ing gains nothing since each record has its own index 
entry with the direct address of the record. 


2. Block all sequentially processed indexed files. 


3. Use the core index. For a minimum cost in main 
storage this allows the system to read the single track 
of indexes it needs rather than reading the entire index 
to look for an extry. 


4. Double buffer printer and card input files. 


5. Reduce or eliminate blocking of sequential files and 
double the buffer instead. For example, instead of 
using a block of 1600 bytes with 80 byte records, 
use a block of 800 bytes and double buffer. 


Dual Programming Feature (Models 10 and 12) 


When using the dual programming feature (DPF), the 
following should be considered: 


1. The compiler can be run in either program level; how- 
ever, running compilations in both program levels 
simultaneously may produce erroneous results. 


2. The printer must be available to the program level 
used by the compiler, unless No-List is requested 
(specified by a B in column 11 of the control card 
specifications). 


3. Data management routines and user-written sub- 
routines must be cataloged as permanent library 
entries. If a temporary program is being run in the 
opposite level, the link editor is prevented from cata- 
loging any object modules in the library from which 
the temporary program came. 


4. A program running in the opposite program level must 
not change the object library on the program pack. 


5. During compilation, some logging is forced to the 
printer. If the other level attempts to print using 
Halt/Syslog during compilation, erroneous printing 
may result. 


6. Ifthe RPG compiler is run in program level 2 on a 
64K system, a minimum partition size of 5-1/4K 
(5,376) must be assigned to level 2. 


If an RPG II program is being compiled in program level 2, 
the addresses on the RPG II core usage map may indicate 
program level 1. This would be true if the program level 2 
start address plus the length of the RPG II object program 
exceeded 64K; in such a case, program level 1 is assumed 
for the object program. 


SAMPLE PROGRAM LISTINGS 


Figures H-5 and H-6 are program listings for the Models 10 
and 12 and Model 15 systems. 


Figure H-7 shows the RPG routines used by the Model 15 


system. This chart may be used if you are doing a separate 
link edit on your program. 
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System program compiled on yr 


[sv STE Ms 3 MODEL 1d DISK | 


RPoll 


Compiler version 


VERSTUN U9, AIOIFICATION LEVEL v0 


ol 


QLOl A 008 
DL OD FRR RH KKK RK RE KK KEK 
0103 Fe 
0104 F* THIS PRUGRAM - * 
9105 Fx % 
0106 F* le. LOADS Luo RECORDS TO AN INDEXED FILE. * 
0107 F* * 
0108 F* 2. READS ONE RECORD FRUM FILE $SUUKCE FUR * 
0109 Fe INPUT. THE FILE $SQURCE IS BUILT WHEN * 
OLOQLF* SAMPLE PRUGKAM SAMPL2 IS CUMPILEU BY x 
OL09ZF* GIVING A RETALN-T PARAMETER Ti) THE * 
J1093F* FILE $SUURCE. * 
01094F* x 
O1LO FX 3. CREATES tHE JUUTPUT DATA USING A x 
OLLI Fe LUUP IN THE CALCULATION SPECIFICATIUNS. * 
O1l1l2 Fe * 
OL1L3 Fe 4. JSES KEYS FRUM 9V0095 THROUGH 000500 * 
0114 Fe IN INCREMENTS UF 5. * 
OLL5 F¥ %* 
O116 Fe 5. SHOULD BE FULLUWED BY SAMPLE PRUGRAM 2 x 
OLL7 F* TO VERIFY THAT THE FILE WAS PRUPERLY % 
O11L8 FX LOADED. * 
VLLO F* * 
JDL ZO FREER RKE REE EEE ERK ERE ERE EERE EKER EEKE 
OOVUL J121 F$SUURCE IP F 96 96 DISK 
0002 0122 FOISKOUT O- F 256 128 U6AI 1 DISK 
0003 0123 FPRINTER 0 F 96 96 PRINTER 
000% 0201 I$SJURCE NS Ol 
0005 0202 I 1 1 NUDATA 
0006 O301 C Ol Z-ADDO COUNT 60 
0007 0302 C ol Z2-ADDO RECNBR 30 
0008 0303 C REPEAT TAG 
0009 0304 C ol COUNT Apo 5 CuoUNT 
0010 0305 C Ol RECNBR ADD Lk RECNBR 
OOlL 0306 C 01 COUNT COMP 505 02 
0012 0307 C OLNOZ EXCPT 
0013 0308 C O1NO2 GOTO REPEAT 
0014 03081C SETON LR 
0015 0309 CLR RECNBR SuB 1 RECNBR 
0016 O401 UPRINTER T 204 LR 
0017 0402 U0 20 *SAMPLE PROGRAM L HAS® 
0018 0403 U 27 *LUADED® 
0019 0404 VU RECNBRZ 31 
0020 0405 0 39 "RECORDS® 
0021 0406 0 61 "INTO AN INDEXED FILE.* 
0022 0408 J T 2 LR 
0023 0409 3 21 "KEYS ARE IN ASCENDING® 
0024 0410 U 42 "SEQUENCE STARTING AT® 
0025 0411 J 64 *000005 AND INCREASING® 
0026 0412 0 84 "IN INCREMENTS OF 5.# 
0027 0413 0 T Ol LR 
0028 0414 3 21 *SAMPLE PROGRAM 2 WILL® 
0029 0415 90 44 §PRINT FROM THE INDEXED® 
0030 0416 0 o5 "FILE TO SHOW THAT IT® 
0031 0417 J 36 ‘WAS PROPERLY LOADED.® 
0032 0501 JDISKUUT E OLNO2 
0033 0502 0 COUNT 6 
0034, 0503 J 94 "RECORD NUMBER* 
[oo3s | 0504 9 RECNBR 128 
NN Statement 
Number 


Figure H-5 (1 of 2). Models 10 and 12 Program Listing 
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Date "4 
[307207731 


SAMPLL 


SAMPLL 
SAMPLL 
SAMPLL 
SAMPLL 
SAMPLL 
SAMPLL 
SAMPL1 
SAMPL1L 
SAMPLL 
SAMP LL 
SAMPLL 
SAMPLL 
SAMPL1 
SAMPLL 
SAMPL1 
SAMPL L 
SAMPLL 
SAMPLL 
SAMPLL 
SAMPLL 
SAMPL1 
SAMPLL 
SAMPLL 
SAMPL1 
SAMPLL 
SAMPL1L 


SAMPLL 
SAMPLL 


SAMPL1 
SAMPLI1 
SAMPLL 
SAMPL1 
SAMPLI1 
SAMPL1 
SAMPLI | 
SAMPL1 
SAMPLIL 
SAMPLL 


SAMPLL 
SAMPLI 
SAMPLIL 
SAMPL1 
SAMPLL 
SAMPLL 
SAMPLL 
SAMPL1 
SAMPLL 
SAMPLL 
SAMPL1 
SAMPLL 
SAMPLL 
SAMPL1 
SAMPLI 
SAMPL1 
SAMPLI 
SAMPL1 
SAMPL1 
SAMPLIL 





Source 
- Statements 


INDICATURS JSEiD 
LK UL Je 


RG 314 UNREFERENCED FIELD NAMES 
STMT# NAME 
0005 NUDATA 


FIELD WAMES JSED 


STMT# NAME JEL 
0006 COUNT ) 
0007 RECNBR 9 


LABELS USEJ 


STMT# NAME 


00U3 REPEAT TAG 


ERROR SEVERITY 


RG 314 W 


START 
ADDR 
1500 
1B9A 
1C28 
iC TL 
1842 
1892 
1097 
LCBE 
1037 
1050 
1079 
LOFA 
LE30 
LE75 
LEB2 
LEAS 
LEaD 
1F 88 
1F83 
LEDA 
2003 
1FD3 
LE77 
2046 
2137 
209F 
2153. 
2187 
216A 
215E 
21A8 
23A3 
226 
2300 
238F 
2446 


TOTAL NUMBER OF LIBRARY SECTORS REQUIRED ee 


LU TH DISP 
0U6 0105 
OQu3 polos) 
TYPE 
FIELO, 


NAME IF 
OVERLAY 


CODE 
LENGTH 
0642 
vo9l 
0046 
9026 
0050 
20046 
0027 
v079 
0026 
volc 
0081 
0043 
0038 
O02F 
0008 
O00E 
0010 
2048 
0005 
0090 
0043 
0030 
000C 
0059 
O01C 
0098 
0008 
0024 
0010 
000C 
OOFB 
v02D 
00E9 
v076 
0014 
0071 


04023 


NAME 


RGRUJT 
RGMAIN 
RGSUBS 
RGSUBS 
RGSudBS 
RG SUBS 
$$CSIP 
$$SRBR 
$$SRUA 
$$SRTC 
$$SRMOU 
$$SRSB 
$$SRuI 
$$SKBP 
RGMAIN 
RGSUBS 
RGMAIN 
RGMAIN 
RGSUNS 
RGSUSS 
$$PGRI 
RG SUBS 
RGSUBS 
$$10UT 
$$SROF 
$$SRBI 
RGMAIN 
RGMAIN 
RGSUBS 
RGSUBS 
$$LPRT 
RGMAIN 
RG SUBS 
RGSUBS 
RGSUBS 
RGMAIN 


SAMPL1 


TEXT 


TABLE OR ARRAY NAME DEFINED JUT NEVER USED. 


CURE USAGE JF RPGII CODE 
TITLE 


INPUT MAINLINE 
RECURD ID 

CONTROL FIELDS 
INPUT CTRL RIN 
SUBSEG 

3444 CONSEC INPJT 
SYSTEM SUBR 

SYSTEM SUBR 

SYSTEM SUBR 

SYSTEM SUBR 

SYSTEM SUBR 

SYSTEM SUBR 

SYSTEM SUBR 

TOTAL CALCS 
CONSTANTS 

INPUT FIELDS 

DETAIL CALCS 
CONSTANTS 

OUTPUT CTRL XTN 
RESET RESULTING INDR 
EXCEPTION 

SUBSEG 

5444 INDEXED UUTPUT 
SYSTEM SUBR 

SYSTEM SUBR 

TOTAL OUTPUT 

LR & OVERFLOW PRUCESSING 
OVERFLOW SUBSEGMENT 
SUBSEG 

5203 PRINT 

CLOSE 

CONSTANTS 

LR PROCESSING 

LR CALCS 

OPEN 


TOTAL CORE USAGE REQUIRED TO EXECUTE 


Figure H-5 (2 of 2). Models 10 and 12 Program Listing 


Displacement to right 
end of field from 
start of Root. 


Contains fields, buffers, 
constants, and work areas 
used by the RPG program. 


Disk space required 
in the object library 
by the program. 
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fSystems3 MODEL 151 


oo0ol 
0002 
0003 


0004 


0005 


0006 
0007 
0008 
0009 
0010 
0011 
0012 
0013 
0014 
00L5 


9016 
0OL7? 
0018 
OoLgo 
0020 
0021 
0022 
0023 
0024 
0025 
0026 
0027 
0028 
0029 
0030 
0031 
0032 
0033 
0034 


[0035] 


System program 
compiled on. 


Compiler version 





Size* Date 


RPGII VER-xx~ MOD~00 fix] Txx/xx/xx | 
OLOL H 008 
0102 F EKEKKEKKKKEHKKRKESEKKKEKEKKKKEKKKEKCEKEEKKEKEKAKEKHEEEKEKEREEK 
0103 F* * 
0104 F* THIS PROGRAM - * 
0105 Fe * 
0106 F® Le LOADS 100 RECORDS TO AN INDEXED FILE. * 
0107 F* * 
0108 F® 2. READS ONE RECORD FROM FILE $SOURCE FOR * 
0109 Ft INPUT. THE FILE $SOURCE IS BUILT WHEN * 
OLOILF* SAMPLE PROGRAM SAMPL2 IS COMPILED BY * 
OLO92F* GIVING A RETAIN-T PARAMETER TO THE * 
01093F* FILE $SOURCE. x 
OL094F* * 
OLLO F* 3. CREATES THE OUTPUT DATA USING A * 
OLLL Fe LOOP IN THE CALCULATION SPECIFICATIONS. * 
O1L2 F* * 
0113 F*® 4. USES KEYS FROM 000005 THROUGH 000500 * 
O11L4 FX IN INCREMENTS OF 5. * 
OLL5 F* * 
0116 F* 5. SHOULD BE FOLLOWED BY SAMPLE PROGRAM 2_~ * 
OLLT Fe TO VERIFY THAT THE FILE WAS PROPERLY * 
0118 Fe LOADED. * 
OL19 F* * 
OL2Z0 FEEERKKEREKEREEEEEREREEEEEKEKEEEEE KEKE KERAERERE ERE 
O21 FSSOURCE IP F 256 256 DISK 
0122 FDISKOUT 0 F 256 128 O6AI 1 DISK ol 
0123 FPRINTER O F 96 96 PRINTER 
0201 I$SOURCE NS Ol 
0202 I 1 1 NODATA 
0301 CLO Z~ADO00 COUNT 60 
0302 CLO Z-ADDO RECNBR 30 
0303 CLO REPEAT TAG 
0304 CLO COUNT ADD 5 COUNT 
0305 CLO RECNBR AOD 1 RECNBR 
0306 CLO COUNT COMP 505 02 
0307 CLO NO2 EXCPT 
0308 CLO N02 GOTO REPEAT 
03081CLO SE TON LR 
0309 CLR RECNBR suB 1 RECNBR 
0401 OPRINTER T 204 LR 
0402 0 20 *SAMPLE PROGRAM 1 HAS? 
0403 0 27 "LOADED® 
0404 0 RECNBRZ 31 
0405 0 39 *RECORDS® 
0406 O 61 "INTO AN INDEXED FILE.? 
0408 0 2 LR 
0409 0 21 "KEYS ARE IN ASCENDING® 
0410 O 42 "SEQUENCE STARTING AT® 
0411 0 64 *000005 AND INCREASING® 
0412 0 84 *IN INCREMENTS OF 5.° 
0413 O LR 
0414 0 21 *SAMPLE PROGRAM 2 WILL® 
0415 D0 44 *PRINT FROM THE INDEXED® 
0416 0 65 *FILE TO SHOW THAT IT® 
0417 0 86 "WAS PROPERLY LOADED.? 
0501 OOISKOUT E NO2 
0502 0 COUNT 6 
0503 O 94 *RECORD NUMBER® 
0504 0 RECNBR 128 


\ Statement 


number 


*This is the size that the link editor will attempt to put the object program into unless a different execute size is 


given on the header card (columns 13 and 14). 
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‘ 


SAMPLI 


SAMPL1 
SAMPLI 
SAMPLL 
SAMPL1 
SAMPL1 
SAMPL1 
SAMPLI 
SAMPLL 
SAMPLI 
SAMPL1 
SAMPL1 
SAMPLI 
SAMPL1 
SAMPLI 
SAMPL1 
SAMPL1 
SAMPLI 
SAMPLI 
SAMPLIL 
SAMPLI 
SAMPLI 
SAMPLI 
SAMPL1 
SAMPLIL 
SAMPL1 
SAMPLL 


SAMPL1 
SAMPLI 


SAMPL1 
SAMPL1 
SAMPL1 
SAMPLI 
SAMPL1 
SAMPL1 
SAMPL1 
SAMPL1 
SAMPL1 
SAMPL1 


SAMPL1 
SAMPL1 
SAMPLL 
SAMPLI 
SAMPL1 
SAMPLI 
SAMPLL 
SAMPLE 
SAMPLI 
SAMPLIL 
SAMPL1 
SAMPL1 
SAMPLL 
SAMPL1 
SAMPLI1 
SAMPLI 
SAMPL1 
SAMPL1 
SAMPLI 
SAMPLL 





Source 
statements 


INDICATORS USED 
LR LO OL 02 


RG 305 INDICATORS UNREFERENCED 
ol 


RG 314 UNREFERENCED FIELD NAMES 
STNT# NAME 
0005 NODATA 


FIELD NAMES USED 
STMT# NAME OEC LGTH OISP 


0006 COUNT 0 006 0005 . : 
0007 RECNBR 0 003 [0008 Displacement to right 
eae end of field from start 
LABELS USED 
STMT# NAME TYPE of COMMON. 
0008 REPEAT TAG 


ERROR NUMBER STATEMENT NUMBER 


RG 273 0032 
ERROR SEVERITY TEXT 
RG 273 W OUTPUT INDICATORS IN COL 23-31 MISSING OR ALL NEGATIVE. 
RG 305 W INDICATOR ASSIGNED BUT NOT USED TO CONDITION OPERATIONS. 
RG 314 W FIELD, TABLE OR ARRAY NAME DEFINED BUT NEVER USED. Overlay priority: 








Low number = high priority 
High number = low priority 
Category 0 cannot 


OVERLAY LINKAGE EOITOR CORE USAGE MAP 11/19/73 


















START CATEGORY | NAME AND CODE LENGTH : 
ADDRESS ENTRY HEXADECIMAL DECIMAL be overlaid 

4000 GLOBAL 07c8 1992 

4168 COMMON 0009 9 . 

4800 0 SAMPLI 0100 256 Contains buffers 

4900 0 $#RTO2 0123 291 

4A23 0 $S#IPCR 004F 79 Contains fields 

&@A24 $a0AC9 

9 re gen Contains RPG 

nee ; creann work areas, and execution 

4 BFC 0 $#CON2 and pre-execution time DTTs. 

4COA 2 $$CSIP 

4031 2 $$I1OUT . . 

&C90 2 $$SRBR Contains compile 

4012 2 $$SRUA 0026 38 . : 

4038 2 $$SRTC OO1C 28 time tables, compile 

4038 DNSRLO time DTTs and DTFs 

4049 DMSRTC 

4D4C DMSRER 

4054 2 $$SRBI 0105 261 

4E59 2 $$ SRDF Oo1c 28 

4ET5 2 $$SRMO OOA4 164 

4F19 2 $$SRSB 0046 70 

&FSF 2 $$SRDI 003E 62 

4F84 DMSRPD 

4F7D DMSRRD 

&F9D 2 $$SRBP 002F 47 

GFCC 6 $SLPRT 0001 209 

5090 93 S#OPEN 006D 109 

510A 126 S#HINPT 0090 144 

515C $a0C25 

5163 $a0C2C 

5190 $20C59 

5154 $a0C1D 

5158 $20C21 

519A 28 $#IHOL 0008 8 

51A2 126 $#TCAL 0052 82 

51F4 29 SHEXPT 0020 45 

5221 28 $#0HO2 000C 12 

5220 126 $#IFLO 0010 29 

5246 $a0CE8 

524A 93 $#CLOS 0028 43 

5251 $a0EC2 

5262 $a0ED3 

5266 $a0EDT 

5275 107 $#LROT 0076 118 

52EB 126 $#TOUT 0008 11 

52F6 126 $#LROF 0024 36 

531A 71 $#0A0F 0010 29 

5337 28 $#0HO3 000C 12 

5343 126 SARCID 0046 70 

537A $a0C9A 

5389 126 $#CFLD 0026 38 

5 3AF 11 $$PGRI 0043 67 


Figure H-6 (2 of 3). Model 15 Program Listing 
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START CATEGORY NAME AND CODE LENGTH . 
ADDRESS ENTRY HEXADECIMAL DECIMAL Routine name. 
53F2 107 | swurc | 0014 20 For acomplete list 
of routine names see Figure H-7 
DL100 I THE TOTAL CORE USED BY SAMPL1 IS 5126 DECIMAL. 
OLLOL 1 THE START CONTROL ADDRESS OF THIS MODULE IS 4800. Gives ication 
0L104 I TOTAL NUMBER OF LIBRARY SECTORS REQUIRED IS 13 
NAME-SAMPL1 ¢ PACK-SYSTEM,UNIT-R1y RETAIN=T p LEBRARY-0] <t———————_ of object 
program 


Figure H-6 (3 of 3). Model 15 Program Listing 


TITLE 


GLOBAL (contains buffers and 
IOBs) 

COMMON (contains fields) (see 
Note 1) 

ROCA (contains execution time 
and pre-execution time DTTs) 


Progam Name Multiply Routine $$PGMC 
Sead Input Hook (4F + file number) $#1HO1-19 
IOCBs, DTFs, Compile Time Tables, $#RTO2 Output Hook (69 + file number) $#0HO01-14 
comple time elie Exception Output Segment $#E XPT 
Edit Code Assignments, Edit Calculation Subroutines (see Note 2) $#SRO1-FF 
Code Patterns S#MISC Move Fields (output fields for 
Overlay Fetch Routine OVLFRTN OR lines) $H#MFO1-FF 
File Translate Routine $$PGAB LOKUP Subroutine $$PGLC 
Detail Output $#DOUT Pack Routine $$PGCO 
Input Mainline SHINPT Unpack Routine $$PGCl 
Total Calculations $S#TCAL Divide Routine $$PGIC 
Total Output $S#TOUT TESTZ Routine $$PGTC 
LR and Overflow Processing $#LROF Convert to Binary Routine $$PGBI 
ba fone contin! eee Convert to Decimal Routine $$PGBO 
eee ane ards haben neues 
CHAIN Code Blocks HN1-F 
Routine (OPCR) S#OPCR DEBUG Routine eae 
Literals, Constants, Edit Patterns RA File Process Routine S#RAFL 
and Parameters $#CON 1-F Fetch Overflow Routine $H#FOVF 
Detail Calculations $#DCAL OA Overflow Routine S$HOAOF 
Hata ed ete OB Overflow Routine $#OBOF 
Sc : puEInE ace OC Overflow Routine $#0COF 
ultifile -ogic OD Overflow Routine $#0DOF 
Control Fields Processing S#CFLD OE Overflow Routine $#CEOF 
Alternate Collating Sequence OF Overflow Routine SH#OFOF 
Routine . $$PGDI OG Overflow Routine $#OGOF 
Set Resulting Indicators OV Overflow Routine $#OVOF 
Routine . SSPGRI LR Output Segment $#LROT 
Array Index Routine SSPGAA LR Calculations Segment $#LRC 
ee Open Mainline $S#OPEN 
1. If COMMON is missing, $#RTO2 and ROCA are combined. ee oh ceate sata 
2. Calculation subroutine names are assigned in ascending Dump ou rs. $$PGFO 


MNEMONIC 
PROGRAM NAME 


Name of prog- 
ram is printed as 


sequence with the first user defined subroutine having a 
category of 28. The first subroutine name may have any 
hexadecimal character assigned to it and gaps may exist 


between consecutive names. 


Figure H-7. Model 15 Routine Names 
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TITLE 


MNEMONIC 


PROGRAM NAME 


This appendix contains the number of bytes of object code 
generated for RPG II operation codes. When used in con- 
junction with Appendix H, this information will help you 
determine the amount of main storage that may be saved by 
using certain coding practices. 


For example, consider this main storage saving technique: 
Try to use numeric fields of the same length and with 
the same number of decimal positions. If the fields cannot 


be the same length, try to have the number of decimal 
positions the same. 


IBM Insernational Business Machine Corporstion 


Operation 


RPG CALCULATION SPECIFICATIONS 


~ =I oe a 
Ca A ae 


Operation 


RPG CALCULATION SPECIFICATIONS 


Appendix |. Bytes of Generated Code for Calculations 


If the decimal position of Factor 1, Factor 2, and the 
Result Field are all different, an ADD operation will 
generate 27 bytes. 


However, if all the fields were defined as having the 
same number of decimal positions, the same ADD 
operation would generate only 15 bytes. 


Uniformity of fields will not only save main storage for 
ADD and SUB, but for most of the other arithmetic 
operations as well. 


Form GX21-9093 
Printed in U.S.A. 


75 76 77 78 79 80° 


Program 
—__— Mdentiification 


Comments 


Form GX21-9093 
Printed in U.S.A. 


75 76 77 78 79 80 


Comments 
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The following abbreviations and symbols are used in dis- 
cussing bytes used by calculation operations. 
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Fl Factor 1 

F2 Factor 2 

RF Result Field 

Ll Total length of Factor 1 

L2 Total length of Factor 2 

LR Total length of Result Field 

D1 Number of decimal positions in Factor 1 

D2 Number of decimal positions in Factor 2 

DR Number of decimal positions in Result 

Field 

H/A = — Half adjust 

= — equal 

- — not equal 

- — minus 

> — greater than 

< — less than 

+ — plus 

Operation Bytes 

SETON (each indicator set on) 3 

SETOF (each indicator set off) 3 

BITON 4 

BITOF 4 

TESTB | 
test bit off 10 
test bit mixed 17 
test bit on 10 
test bit off and mixed 23 
test bit off and on 23 
test bit mixed and on 23 
test bit off, mixed, and on 29 

SUB 
Fl = RF and DI = D2=DR 6 
Fl #RF and DI = D2=DR 15 
Fl #RF and D2= DR 23 
Fl # RF and D2=DRH/A 27 
All other combinations 31 
All other combinations H/A 39 

Z-SUB | . 
D2 =DR 14 
D2+DR 18 
D2#DRH/A 22 

TIME 
RF isa field or array with a constant 
index 15 
RF is a variable indexed array 26 
RF isa table 21 


Operation Bytes 
ADD 
Fi = RF and D1 = D2=DR 6 
F2 = RF and D1 = D2 =DR 6 
Fl] #F2#RF and DI = D2=DR 15 
_ Fl=RFandD2>DR 14 
F2=RF and DI >DR 14 
Fl =RF and D2>DRH/A 18 
. F2=RFand D1 >DRH/A 18 
Fl =RF and D2< DRH/A 18 
F2.= RF and D1 <DRH/A 18 
D1 =D2<DR 23 
All other combinations 27 
All other combinations H/A ° 35 
Z-ADD | 
D2 = DR 6 
D2 > DR 14° 
D2 >DRH/A 18 
D2 < DR 18 
COMP 
F1 and F2 are numeric and Di = D2 10 
Fl and F2 are numeric and D1 # D2 18 
Fl and F2 are alphameric and L1=L2 6 
Fl and F2 are alphameric and 
. F1 isa field 22 
F1 and F2 are alphameric and 
F1 is a table 26 
alternate collating sequence ~ 10 
(add these bytes to the . 
appropriate compare 
operation listed 
previously) 
TESTZ . 
RF is a field 9 
RF is a table 20 
MULT 23 
with H/A 27 
DIV 
* D1 -D2=DR 23 
D1 -D2#DR 27 
D1 -D2=DR+1H/A 31 
D1 -D2#DR+1H/A 35 
MVR . 
D2 = DR 5 
D2 # DR 9 
XFOOT 
D2 = DR 9 
D2 # DR 13 
FORCE 13 
with external indicator 13 + 7=20 


Operation Bytes added to base Operation Bytes added to base 


CHAIN _ Base = 16 READ Base = 29 
with external indicator 6 with external indicator . 6 
when Factor 1 has a variable index 11 . with EOF indicator with BSCA 6 
when key is not packed 14 with EOF indicator without BSCA 12 
when key is packed 23 with BSCA without EOF indicator 6 
when key is packed and Factor 1 isa without BSCA without EOF indicator 19 
table element 6 | with PAF limits 6 
when key is a record number 8 LOKUP _— Base = 15 
when key is a record number and Factor 1 when Factor 1! is a table 6 
is a table element 6 when Factor 1 is a variable 11 
when record not found indicator is given 12 with each resulting indicator 12 
when record not found indicator is not SETLL _ Base = 18 
given 16 when key is packed 2 


MOVE, MOVEL, MHHZO, See the following table. 

MHLZO, MLHZO, MLLZO The number of bytes 
specified includes all array 
control code lengths. 


Field to Field 

Array to Array 

Field to Array 

Table to Array 

Array, Index to Array 
Array to Array, Index 
Field to Array, Index 
Table to Array, Index 
Array, Index to Table 
Field to Table 

Table to Table 

Array, Index to Field 


Table to Field 
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Operation Bytes Array control code (initialization and processing) is generated 
for all calculations except DSPLY, LOKUP, CHAIN, READ, 


DSPLY and FORCE. 
(for factor 1) 40 
with variable index 51 Operation Bytes 
with integer index 46 
with alphameric field 73 Array initialization 
with numeric field 74 F1 or F2 an array 6 
(for result field) 10 F1 or F2 a table 
with variable index 27 F1 or F2 an array and tag 11 
with integer index 16 Array processing 
with alphameric field 58 F1, F2, RF are arrays 30 
with numeric field 93 F1-RF, F2-RF arrays 22 
F2 and RF are arrays 16 


Conditioning indicators 
(does not apply to CHAIN, FORCE, 


LOKUP, and READ) Suppose, for example, that a SUB operation code was speci- 
each indicator 3 fied and has the following conditions: 
each AND type 3 
Resulting indicators 1. Fl S RE 
(does not apply to CHAIN, FORCE, LOKUP, 
and READ) 2 2. DI=D2=DR 
plus, for each resulting indicator 3 
EXSR 4 3. FI, RF = full array 
GOTO 4 
MOVES sg 4. F2= table 
EXCPT 4 
BEGSR a The length of object code generated would be as follows: 
ENDSR 4 
Array initialization 
F1 array 6 bytes 
F2 table 4 bytes 
RF array 6 bytes 
SUB 6 bytes 
Array processing 
F1-RF array 22 bytes 


Thus, the total bytes of code generated for a SUB opera- - 
tion code is 44 bytes. 


IN-LINE INQUIRY SUBROUTINE (SUBR95) 


For Models 10 and 12 you can use SUBR95 to perform an 
inquiry type function without rolling your program out and 
rolling another program in (see Control Card Specifications, 
inquiry for a discussion of rollout/rollin). You can check at 
any point in your calculations to determine if an inquiry 
request has been made. 


To use SUBR95 to check for an inquiry request, you must 
call SUBR95 by specifying the linkage shown in Figure J-1. 
The indicator specified in columns 45-46 can be an RPG II 
indicator. For a detailed discussion of this linkage, see 
Appendix F. RPG II to Assembler Language Subroutine 
Linkage. 


When SUBR95 is called, it checks if an inquiry request has 
been made. If an inquiry request was made, the indicator 
specified in the RLABL operation is turned on and the in- 
quiry request is reset. You.can use this indicator to condi- 
tion a GOTO or EXIT to another subroutine within your 
program. This subroutine can perform whatever function 
you wish. 


You should not use SUBR95 in a B type program (one 
that performs normal rollout/rollin functions) as this can 
cause loss of interrupt requests. 


Note: On the first call to SUBR95, the console typewriter 
is activated to accept an inquiry request. 


PF KEY SUBROUTINE (SUBR89) 


Model 15 RPG programs can use SUBR89 to allocate and 
test PF keys 1-9, on the keyboard. This allows you to con- 
trol functions within an RPG program from an external 
source. SUBR89 can be used to perform inquiry type 
functions on the Model 15 in the same way SUBR95 is used 
for the Models 10 and 12; however, its use is not limited to 
that function. 


To use SUBR89, you must call it using the linkage shown in 
Figure J-2. The first RLABL instruction passes a numeric 


field containing a value of 1-9. This specifies the PF key you 


Appendix J. IBM-Written Subroutines 


want to allocate and test. You may allocate as many of the 
PF keys 1-9 that you want to but only two RLABL state- 
ments are allowed after each EXIT statement. Once a PF 
key is allocated to your program it remains allocated until 
your program terminates. The second RLABL instruction 
must specify any valid RPG II indicator. This indicator is 
turned on, by SUBR89, if the PF key specified in the first 
RLABL instruction is pressed. 


The sign of the field in the RLABL instruction determines 
how SUBR89 will be used for that PF key. 


If the field is a positive 1-9, on the first call to SUBR89, the 
PF key equal to the value in the field is allocated to the 
program. Subsequent calls to SUBR89 check if the PF key 
specified was pressed. If the PF key was pressed, the indi- 
cator specified in the second RLABL instruction is turned 
on and control is returned to the RPG program. If the PF 
key was not pressed the indicator is set off and control is 
returned to the RPG program. 


If the field is a negative 1-9, on the first call to SUBR89, 
the PF key equal to the value in the field is allocated and 
SUBR89 waits until the PF key is pressed before turning on 
the indicator specified and returning control to the RPG 
program. Subsequent calls to SUBR89 check if the PF key 
specified was pressed. If the specified PF key hasn’t been 
pressed, SUBR89 waits until the specified PF key is pressed 
before setting on the indicator and returning control to the 
RPG program. | 


In either case (field negative or positive), if the requested 
PF key cannot be allocated to the program a numeric zero 
(FO) is returned in the field specified in the first RLABL 
instruction. After the first call to SUBR89 you should 


check for a numeric zero (X‘FO’ is specified as a 0 in Factor 


1 or Factor 2) in the field to determine if the requested PF 
key was allocated. A numeric zero (FO) is also returned if 
the field is not a digit 1-9. After control is returned to the 
RPG program it can use the indicator specified in the 
RLABL instruction to condition operations or program 
logic. 
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Figure J-1. Linkage for SUBR95 
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Field A is a one-position field containing a positive or negative 1-9. 


XX can be any valid RPG II indicator. 


® 
@ 


Figure J-2. Linkage to SUBR89 
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& (ampersand), use in edit word 266, 267 
$ (fixed or floating dollar sign) 266, 267 
* (asterisk, star) 
asterisk fill (asterisk protection) 266, 267 
(see also edit words) 
commentline 9 
printing on cards (output sheet, col 40) 254 
packed or binary field restriction 263 
** (look-ahead fields) 9, 8, 122,123 
** (end record, alternate collating sequence table) 8,17 
*PLACE special word 247 
(see also fieldname, output) 
conditioning *PLACE fields 250 
end position in output record 250 
example 249, 253 
overlapping *PLACE fields 250 
packed or binary field restriction 259 
*PRINT special word 250 
(see also fieldname, output) 
example 254 
packed or binary field restriction 259 
/. delimiter 8 
/& delimiter 8 
/* end of file delimiter 8, 16 


ADD (add operation) 187 
add a record (ADD output sheet entry) 238 
adding records to files 66, 238 
direct files vs sequential; indexed 66 
example 67 
file description entry 66 
relation to filetype 66 
valid add records 66 
additional input/output area 49 
ADDROUT files 
(see also record address files) 
example 36 
file description entries 
file organization (col 32) 47 
length of key field (cols 29-30) 46 
mode of processing (col 28) 33 
record address type (col31) 46 
summary chart 76 
adjusting results (see half adjust) 
alignment of printer forms 20 
allocation of file space on disk 335 
alphabetic characters (definition) 2 
alphameric 
characters (definition) 2 
fields (definition) 2 
moving alphameric fields (MOVE) 190 
alternate collating sequence 
(see also collating sequence) 
characters affected 16 
coding sheet 17 


Index 


alternate collating sequence (continued) 
control card entry 16 
compare operations 201, 202 
input record format 16 
operations affected 16 
table 17 
alternating format (see related tables) 
ALTSEQ (see alternate collating sequence) 
ampersand (&), use in edit word 266, 267 
AN and OR lines 
calculation entries 168, 169 
control level entry 168 
example 170 
AND and OR lines 
(see also record identification codes; output indicators) 
input sheet entries 135 
example 136 
output sheet entries 237 
stacker select entries 
input 137, 138 
output 239 
AND relationship 
calculation sheet (indicators) 172,173 
input sheet (record identification codes) 135, 136 
output sheet (output indicators) 245 
arithmetic operations 
(see also operation codes; half-adjust) 
length of fields 187 
list (see operation codes) 
using three fields 187 
arrays 
(see also tables) 
adding entries to a short array 104 
building (see loading) 
building via calculations (see execution time arrays) 
compilation time 94,99 
creating input records 96 
decimal positions 92 
defining arrays (extension sheet) 98 
definition of terms 99 
differences between tables and arrays 94 
dynamic arrays (see execution time arrays) 
editing 259,105 
end of array 99 
entry 98 
examples 108 
execution time 86, 94, 100 
extension specifications 85 
summary chart 93 
file designation entry 28 
formatting output (see exception output) 
full array (definition) 94 
general discussion 94 
indexing 102 
length of entry 90 
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arrays (continued) 
loading 
compilation time 86, 99 
considerations 88 
examples 108 
execution time 86, 100 
from more than one record 102 
from one record 100 
placement in a source deck 99 
pre-execution time 99 
suppressing calculations 102 
via input or calculations (see arrays, execution time) 
LOKUP (see LOKUP operation code) 
modifying the contents 104 
adding entries toa short array 104 
name 
extension sheet 87 
file description sheet 28, 29 
tulesfor 88 
number of arrays per device 86 
number of entries per array 90 
output 
formatting (see EXCPT operation) 
via extension sheet 86, 104 
via output sheet 104 
packed or binary format 92,100 
pre-execution time 86, 94, 99 
recording array data (rules) 96 
referencing arrays in calculations 103 
related arrays (definition) 94 
sample specifications 98 
searching arrays (see LOKUP operation) 
sequence (extension sheetentry) 92 
sequence of definition 98 
short arrays (definition) 94 
square root with arrays 188 
summary chart 93 
using arrays 
array name andindex 102 
array name only 102 
valid operations 102 
XFOOT operation 189 
assembler language © 
input/output routines (see special device support) 
subroutines (see EXIT and RLABL operations) 
asterisk (*) comment line 9 
asterisk file (asterisk protection) 
edit codes 255 
edit words 260 
examples (table) 264, 265 


BEGSR (begin subroutine) operation code 212 
binary fields 

conversion of numeric fields 138 

device supported on 140 

extension sheet 76 

input sheet 138 

length of fields 138, 139, 140 

output sheet 259 

sign 140 
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binary relative record number 28, 33 
(see also ADDROUT files) 
binary synchronous communications adapter device name 
(BSCA) 56, 416 
bit operation 199 
bit testing (TESTB) 202 
use of indicators 202 
BITOF (set bit off) operation code 201 
BITON (set bit on) operation code 200 
bits (see binary field operations; packed or binary fields) 
blank after 256 
block length 
computed by RPG II for disk files (table) 334 
file descriptionentry 30 
relation to record length entry 32 
branching operations 204 
BSCA (see telecommunications specifications summary) 
buffers, external 24, 414 
bypass (halt recovery option) 270 
bytes (see packed or binary fields) _ 
bytes for core index (table) 335 
bytes of generated code for calculations 443 


C/Z/D (character/zone/digit) 135,424 
calculating storage needed for a file (table) 335 
calculations 
bytes size 443. 
detail time 324 
factors (factor 1 and factor 2) 177 
indicators in AND relationship 172 
operations 
(see also operation codes) 
conditioning 168 
controlling 168,174 
order of specification 179 
specification entry (cols 28-32) 179 
summary table 327 
specification sheet 167 
subroutinesin 212 
totaltime 4, 324 
CANCEL key (see DSPLY operation) 
card arrangement in source deck 7 
card code (96 colcard) 331 


cards, punching and printing on 247 


causing characters to be considered equal 16 
CHAIN (chain) operation code 227 
(see also direct file load; random processing) 
examples 229 
chained file (file description entry) 28 
changing contents of tables and arrays 104 
character 
(see also record identification codes) 
alphabetic 2 
alphameric 2 
collating sequence (table) 332 
EBCDIC (extended binary-coded-decimal interchange code) 2 
grouping by zone and digit (table) 331 
hexadecimal equivalents 332 
invalid (printer or printer/keyboard) 23 
numeric 2 
printable 15 
replacement 260 ( 
special 2 


character (continued) 

structure 

(see also collating sequence; packed or binary fields) 
negative numbers 137 

unprintable character option 22 
checking sequence (see sequence checking) 
code 

calculation code size 443 

EBCDIC (extended binary-coded-decimal interchange code) 2 

editcode 255 

machine code 137,327 

record identification 135 

96-column card code 137, 331 
codes, operation (see operation codes) 
coding sheet (see individual coding sheets) 
collating sequence 

(see also alternate collating sequence; character structure) 

definition 16 

table 332 
combined file 

file type entry (file description col 15) 26 

output indicator restriction 243 

stacker selection restriction 239 
comment 

on calculations sheet 186 

on extension sheet 92 

on table input record 88 

use of asterisk (*) 9 
common entries on specification sheets 8 
COMP (compare) operation code 197 
compare and testing operations 197 


compilation 
error messages (diagnostic messages) 336 
halts 270 
of source program 1,2 
tun 2 


compilation time tables and arrays 86, 94, 99 
compiler program 1 
conditioning files (file description entry) 67 
conditions tested by resulting indicators (calculations) 182 
consecutive processing of file 33 
CONSOLE device entry (file description sheet) 57 
(see also printer/keyboard; DSPLY operation code) 
multiple console file considerations 58 
constant 
(see also edit word; literal) 
definition 260 
examples (table) 265 
output sheet 260 
tules for forming 260 
constant or edit word (output sheet entry) 260 
continuation lines 63 
entry 63 
option 64 
tape record 64 
continue (halt recovery option) 270 
control break 
(see also control fields; control level) 
card control specifications 11 
definition 4 
first cycle difference 146 
general description 144 
unwanted 148 


control fields 
(see also control break; control level) 
assigning on input 144 
examples 147 
general description 145 
OR relationship of record types 164 
rules for using 145 
split control fields 146 
control group (see control fields; control level) 
control level 
(see also control fields; control break; field record relation) 
calculation sheet entry 168 
example 169 
input shect entry 147 
control level indicator 
calculation sheet 168 
example 147 
exception 168 
general information 168 
input sheet 144 
normal uses 144 
output sheet 244 
relation between calculation sheet entries 168 
with subroutines 215 
controlled cancel (halt recovery option) 270 
controlling calculations and output 
using field indicators (input) 165 
using indicators in calculations 168 
conversion of fields 
during move operations 189, 190 
numeric fields 139 
core index 
allocation of storage (formula) 66 
example 65 
table for allocating storage 335 
core saving techniques 430 
general 431 
reducing the overlay size 433 
core size to compile 11 
core size of execute 13 
CR (negative balance symbol, see edit words) 
creating a direct file (see direct file load) 
creating overlays 14 
CRT/keyboard files 
description of 59 
device name 57 
file description summary 81 
FROM and TO specifications 141 
crossfoot operation (XFOOT) 189 
CRT files 27 
cycle 
detailed object program logic 323 
gencral object program logic 4 
first and last cycle differences 4 
cylinder index in core (see core index) 


data formats (see packed or binary field; character structure) 
date field (UDATE, UDAY, UMONTH, UYEAR) 251 
DEBUG (debug) operation code 234 

control card entry 14 

format of debug records 234 

general information and specifications 234 
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decimal data format 
(see also packed and binary fields) 
packed 139 : 
unpacked 138 
decimal places (see decimal positions) 
decimal positions 
calculation sheet entry 180 
relation to field length entry (table) 181 
sample result field contents (table) 181 
extension sheet entry 92 
input sheet entry 142 
with move remainder operation(MVR) 188 
with square root operation (SQRT) 188 
defining a field in calculations (result field) 179 
defining an alternate collating sequence 15 
definition of terms 2 
demand file 
(see also READ operation code) 
external indicators with 225 
file description sheet entry 28 
maximum number 29 
detail calculations time 4 
detail output record 
with control level as output indicator 244 
output sheet entry 238 
detail output time 324 
detail time 324 
detailed object program logic 323 
device 
(see also individual devices) 
assignment table 58 
file description sheet entry 57 
special device support (SPECIAL) 410 
device independent files 
input 60 
output 61 
possible devices 63 
summary sheets 83 
diagnostic messages, RPG II compiler 336 
digit 
(see also character structure; record identification codes) 
character grouping by zone and digit (table) 331 
punch (see character structure) : 
direct file 
adding records (differences from sequential and indexed) 228 
creating (loading) a direct file 228 
file description sheet entries 47,75 
processing methods 33,75 
summary chart 75 
synonym records 228 
disk file 
(see also direct file; indexed file, sequential file) 
block length entry 31,32 
device entry (file description sheet) 57 
file description sheet summary 73,74, 75 
organization (see file organization) 
processing (see processing methods) 
diskette file description specification 84 
display (DSPLY) operation 
(see also display file; printer/keyboard) 
entering data during program execution 222 
example 223 
display file 28 
(see also printer/key board) 
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DIV (divide) operation code 187 
(see also edit code; edit word) 
(see also move remainder MVK) 
divide by zero (halt recovery) 187 
examples in edit words 261 
fixed 263, 264 
floating 256, 260, 264 
domestic format 15, 255 
double buffering dual I/O areas 47 
DPF (see dual program feature) 
DSPLY (display) operation code 222 
(see also display file) 
dual carriage feature (printer) 60 
dual input/output areas 
file description sheet entry 47 
stacker selection with 137, 138 
dual program feature (DPF) 
considerations 437 
core size to execute 13 
object output 12 
restrictions 
inquiry 19 
object output 12 
special device (SPECIAL) restriction 410 
duplicate records (see synonym records) 
dynamic array (see execution time array) 


EBCDIC (extended binary coded decimal interchange code) 2 
edit code 
effect on end position 256 
effect on inverted print 15 
example 255 
leading zero suppression 260 
output sheet entry 255 
summary tables 255, 256, 333 
with array 255 
with edit word 256 
zero balances 256 
edit word 
editing considerations 260 
examples 263 
output sheet entry 259 
replaceable characters 260 
rules for forming 260 
with edit code 256 
end of file 
(see also multifile processing) 
delimiter (alternate collating sequence) 16 
exceptional situation 29 
file description sheet entry 29 
records processed 29 
with force (FORCE) operation 218 
END key (see DSPLY operation code) 
end position in output record 
effect of edit code on 256 
output sheet entry 257 
ENDSR (end subroutine) operation code 212, 214, 216 
entry (table or array) 
(see also tables; arrays) 
length of entry (extension sheet) 90 
number of entries per record (extension sheet) 88 
number of entries per table or array (extension sheet) 90 ( 


error condition, controlling with output indicators 244 
error messages 
diagnostic messages (table) 336 
halt messages 270 
error sequence 
recovery from file sequence error 30 
recovery from record type sequence error 119 
exception records 
(see also EXCPT operation code) 
output sheet entry (col 15) 238 
EXCPT (exception) operation code 218 
overflow printing with EXCPT 54 
execution 
core size to execute (control card entry) 13 
halts 270 
object program 1, 2, 13 
execution time array 
definition 94 
extension sheet 88 
loading 100 
EXIT and RLABL operations 407 
EXSR (execute subroutine) operation code 214 
extension code (file description sheet, col 39) 55 
extension specifications 85 
(see also record address files; tables and arrays) 
summary chart 93 
extents, number of 69 
external buffers 24, 414 
external character (file translation) 20 
external indicators (U1-U8) 
(see also field record relation) 
as output indicators 243 
assigning on file description sheet 72 
used with demand files 225 


factor] 177 
factor 2 177 
fetching the overflow routine 
generalinformation 52 
output sheet entry 239 
field 
alphameric 2 
binary 92,138, 199, 259 
control 145 
key 46,54 
length 179 
look-ahead (see look-ahead field) 
matching 152 
numeric 142 
packed 92,138, 199, 259 
result 179 
zeroing 187, 256 
field indicators 
controlling calculations and output 165 
general description of use 183 
inarrays 101 
output sheet use 240 
field length 
calculations sheet entry 179 
key field 46 
relation to decimal positions (table) 180 
field locations 
input sheet entry 141 


field name 
input sheet entry 142 
length 2 
OR relationship 142 
output sheet entry 247 
special word entries 247 
valid RPG II fieldname (definition) 2 
field record relation 160 
file 
(see also end of file; file description specifications; 
multifile processing) 
ADDROUT 29, 33 
allocation of space 335 
chained 28 
combined 26 
demand 29 
direct (see direct file) 
display 28 
indexed (see indexed file) 
input 26 
output 26 
primary 28 
record address 28 
secondary 28 
sequential (see sequential file) 
table or array 29 
update 26 
file addition 
difference between direct, sequential andindexed 66 
example 67 
file description sheet entry 66 
relation to file type entry 67 
file condition 
(see also external indicators) 
file description sheet entry 71 
file description specifications 25 
file designation 28 
summary chart 72 
fileformat 31 
file organization (file description entry) 47 
file processing (see processing methods) 
file translation 
control card entry (col 43) 20 
example 21 
format of table records 20 
placement of table in source deck 20 
specifications 20 
file type (file description entry) 26 
filename . 
filename description sheet entry 26 
from filename (extension sheet) 86 
input sheet entry 119 
length 2 
line counter sheet entry 116 
output sheet entry 238 
to filename (extension sheet) 86 
valid RPG II filename (definition) 2 
first page (1P) indicator 
assignment on output sheet 244 
control cardentry 21 
example 246 
restriction with output fields 244 
fixed dollar sign 256, 260 
example (table) 263 
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fixed length format 31 
floating dollar sign 256, 260 
examples (table) 263, 264 
with edit code 256 
flowchart, RPG II program logic 
detailed 323 
general 4 
FORCE (force) operation code 218 
example 220, 221 
form length (see line counter specifications) 
default value 117 
formtype 9 
formatting edit words 259 
forms position, 1P 19 
from filename (extension sheet entry) 86 
full table or array 
definition 94 
entry on extension sheet (number of entries per table or 
array) 90 
functionof RPGII 1 


general core saving techniques 430 
general object program logic 4 
generated calculation code 443 
generation of object program (see compilation) 
glossary (definition of terms) 2 
GOTO (go to) operation code 204 
(see also TAG) 
use with subroutines in calculations 212 
group operations (see total operations) 
grouping characters by zone and digit (table) 331 


half adjust (calculations sheet entry) 180 
halt indicators (H1-H9) 
assigning on input sheet 122,161 
calculation sheet uses 
conditioning indicators 172 
resulting indicators 182 
example 184 
halt recovery procedures 270 
header card (control card) 11 
heading (H) output records 238 
hexadecimal equivalents of characters (table) 332 


I-type program (see inquiry support) 
IBM-written subroutines 447 
identification 

of programs 9 

of record types 122 
immediate cancel (halt recovery option) 270 
in-line inquiry subroutine 447 
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_index buffers 64 
index, array 102 


core 
(see also indexed file) 
file description entry 64 
space requirements 65, 335 
formula for calculating 66 
zero index error 212 


indexed file 


addition of records 66, 238 
ADDROUT processing 33 

file description summary charts 72 
general information 47 

key 47 

loading 47 

random processing 33 

sequential by key processing 33 
sequential by limits processing 33 
unordered loading 66 


indicators 


(see also DEBUG operation code) 
calculation sheet 
AND relationship of indicators 169 
control level (cols 7-8) 168 
indicators (cols 9-17) 172 
resulting indicators 182 
conditioning 
calculation sheet 172 
output sheet 241 
control level (L1-L9, LO) 
assigning on input sheet 144 
calculation sheet entries 168,172,182 
field record relation 160 
input sheet entries 122, 145 
LO 168 
output sheet entries 241 
record identifying indicator 122 
summary table 328, 329 
external (U1-U8) 
assigning on file description sheet 71 
calculation entry 172 
field record relation 160 
output entries 238, 241 
setting by operation control language 72 
summary table 328,329 
with demand file 225 
where used 72 
field (01-99; H1-H9) 
assigning on input sheet 165 
calculation sheet uses 174 
general description (01-99; H1-H9) 165, 166 
output sheet uses 241 
summary 328, 329 
file conditioning (U1-U8) 71 
(see also external indicators) 
file description sheet (file conditioning) 71 
file record relation 160 
first page (1P) 
assigning on output sheet 244 
example 246 
restriction with output fields 244 
halt (H1-H9) 
assigning on input sheet 122, 165 
calculation sheet use 172, 182, 184 


indicators (continued) 
halt (H1-H9) (continued) 
controlling error conditions 244 
field indicator 165 
field record relation 160 
general description 184 
output sheet use 241 
summary table 328, 329 
input sheet 
controllevel 144 
field indicators 165 
field record relation 160 
record identifying indicator 122 
last record (LR) 
calculation sheet use 168, 172 
input sheet use 122 
summary tables 328, 329 
level zero (LO) 
assigning on calculation sheet 168 
output sheet use 241 
setting indicator restriction 203 
summary tables 328,329 
matching record 
(see also multifile processing) 
assigning matching fields 152 
calculation sheet uses 172 
examples 152,159 
field record relation 160 
gencral information 157 
output sheet uses 241 
summary tables 328, 329 
output 
AND and OR lines 243 
overflow indicators 244 
use to control error conditions 244 
overflow 
assigning on file description sheet 50 
calculation sheet entries 172,182 
examples 52,53 
fetching the overflow routine 52 
generalinformation 50 
line counter specifications 116 
output sheet entry 244 
relation to program cycle 54 
restriction with exception lines 244 
summary tables 328, 329 
record identifying 
as field record relation 160 
assigning on input sheet 122 
examples 136 
summary tables 328, 329 
referencing in EXIT and RLABL operations 407 
resulting 
calculation sheet entries 182 
examples 185 
summary tables 328, 329 
use with CHAIN operation code 227 
use with LOKUP operation code 206 
use with READ operation code 224 
setting (SETON; SETOF) 204 
summary tables 328,329 
with test bit (TESTB) operation 202 
valid uses of indicators (tables) 328, 329 


input file 26 
input specifications 118 
input/output (I/O) area 
additional area (file description col 32) 47, 49 
dualareas 49 
multiple areas 49 
size of area computed by RPG II (table) 334 
size of area related to record length 33 
input/output, programmed controlof 217 
inquiry 
dual program feature restriction 19 
RPG II subroutine 447 
inserting new records (see adding records to a file) 
internal character (file translation) 20 
interruption of programs 19 
inverted print 15 


job control language (see operation control language) 


K (1,024 bytes of main storage) 13 
key 

(see also indexed files) 

limits (see also record address files) 33 

random processing by 35 

sequential processing (by indexed file) 33 
key field 

definition 46 

length (file description cols 29-30) 46 

. Starting location (file description cols 35-38) 54 

keyboard (see printer/keyboard) 


labels 64 2 
label exit 64 
last record indicator 
calculation sheet use 172,182 
output sheet use 241 
record identifying indicator (input sheet) 122 
summary tables 328, 329 
leading zero suppression 21 . 
effect of inverted print specification 15 


length of 
array name 87 
block 31 
relation to record length 32 
field 


arithmetic operations 179 
compare operations 198 
relation to decimal positions (table) 181 
square root, relation to decimal positions (table) 189 
fieldname 2 
filename 2 
form (number of lines per page) 117 
key field (file description cols 29-30) 46 
record (file description cols 29-30) 46 
record address field (file description cols 29-30) 46 
result field (calculations cols 49-51) 179 
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level zero indicator 168,170 
level, control (see control level) 
library, object 9 
limits processing 33 
(see also indexed file; record address file) 
example 38 
line counter specifications 116 
line number 
coding lines 8 
number of lines per page 117 
overflow line 117 
linkage to assembler language subroutines 407,410 
listing options (control card entry) 12 
literal (calculations sheet) 178 
(see also constant) 
loading 
arrays 98 
considerations 96 
direct files 228 
indexed files 47 
unordered load 66 
location of field (input sheet entry) 141 
logic of RPG II object program 
detailed 321 
general 4 
LOKUP (lookup) operation code 206 
examples 209 
referencing the table item found 208 
resulting indicators with 206, 208 
starting the search of a particular array item 212 
with an array 209 
with one table 102 
with two tables 208 
look-ahead fields 
examples 129, 130 
input sheet entries 123 
specifications 123 
lookup operation (see LOKUP) 
LR (last record) indicator 
calculation sheet use 168 
output sheet use 241 
record identifying indicator (input sheet) 122 
summary tables 328, 329 
LO (level zero indicators) 
assigning on calculation sheet 168 
output sheet use 241 
summary tables 328, 329 
L1-L9 (control level) indicators 
as field record relation 160 
assigning on input sheet 144 .- 
calculation sheet use 172, 168, 182 
examples 164,174,177 
output sheet use 241 
record identifying indicator 122 
resulting indicators (calculation sheet) 182 


machine code 2, 137 
machine language program 1 
magnetic tape files 
block length for 31, 32 
continuation records 63 
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magnetic tape files (continued) 
file description specification 80 
tape rewind (column 70) 71 
main storage (core) 
allocation for core index (table) 335 
core size to execute (control card entry) 13 
mask (see edit word) 
matching fields 
(see also multifile processing) 
assigning (rules) 158 
example 159 
input sheet entry 152 
used for multifile processing 157 
used for sequence checking 157 
matching level identifier (M1-M9) 152 
matching record indicator (MR) 
as field record relation 157 
assigning matching fields 157 
calculations sheet entry 172 
output sheet entry 241 
when turned on 157 
messages, RPG II diagnostic (error) 336 
method (mode) of processing (file description entry) 33,46 
MFCM (multifunction card machine) 
block length and record length entries 31, 33 
device names (MFCM1; MFCM2) 57 
file description entry summary 82 
printing on cards 257 
MFCU (multifunction card unit) 
block and record length entries 31, 33 
device names (MFCU1;MFCU2) 57 
printing on cards 257 
punching zeros 21 
MHHZO (move high to high zone) operation code 197 
MHLZO (move high to low zone) operation code 197 
MLHZO (move low to high zone) operation code 197 
MLLZO (move low to low zone) operation code 197 
mode of processing 33 
model 15 routine names 442 
modifying contents of tables and arrays 104 
MOVE (move) operation code 189 
summary table 191 
move operations 189 
move remainder (MVR) operation 188 
move zone operations 197 
MOVEA (move array) operation code 194 
“example 194 
MOVEL (move left) operation code 192 
summary table 193 
MULT (multiply) operation code 187 
multifile processing 
(see also end of file; matching record indicator) 
examples 159 
general discussion 157 
match fields 157 
assigning matching field (rules) 158 
input sheet entry 152 . 
no match fields 157 
normal selection, three files 154 
normal selection, two files 152, 153 
selection of records (input) 157 
with alternate collating sequence 158 
with field record relation 161 
with FORCE operation 218 


a 


multiple input/output areas 47 

file description sheet entry 47 
multivolume files (see number of extents) 
MVR (move remainder) operation code 188 

(see also DIV operation code) 

example 188 


N (not) (see record identification codes) 
name 
array (extension sheet entry) 87 
field 
calculation sheet entry 179 
input sheet entry 142 
output sheetentry 247 
program 9 
result field 179 
table (extension shect entry) 87 
valid RPG II names (definition) 2 
name of label exit 64 
negative balance (CR) (see edit words) 
negative numbers (character structure) 137 
(see also packed or binary field) 
negative square root halt (recovery options) 271 
NOHALT 12 
nonprint characters 22 
normal collating sequence 15, 332 
number (input sheet col 17) 121 
number of entries per record (extension sheet) 88 
number of entries per table or array (extension sheet) 90 
number of extents (file description sheet) 69 
number, negative 137 
(see also packed or binary field) 
numbering lines on coding sheets (example) 8 
numbering report pages (PAGE special word) 
input sheet entry 143 
output sheet entry 247 
restarting numbering sequence 247 
numeric characters (definition) 2 
numeric field 
conversion 138,189, 192 
moving 189 
OR relationship 193 
sign of 247 
testing 165 
numeric literals 
calculation sheet uses 179 
inverted print specifications 15 


OA-OG, OV (overflow indicators) 
(see also overflow) 
assigning on file description sheet 50 
calculation sheet use 172,182 
output sheet use 241, 244 
when turned on 50,117 

object library 9,12 


object program 1,2 
execution 1,2,12 
general (see compilation) 
identification 9,12 


logic 
detailed 321 
general 4 
output 12 


terminal errors 12 
OCL (operation control language) for RPG II 270, 273 
operation 
arithmetic 187 
calculation sheet entry 179 
conditioning 172 
detail 4 
order of specifications 168, 179 
summary table 327, 328 
operation codes 187 
(see also operation; individual operation codes) 
arithmetic 187 
(see also half adjust) 
ADD (add) 187 
DIV (divide) 187 
MULT (multiply) 187 
MVR (move remainder) 188 
SQRT (square root) 188 
SUB (subtract) 187 
XFOOT (cross foot) 189 
Z-ADD (zero and add) 187 
Z-SUB (zero and subtract) 187 
bit operation 199 
BITOF (set bit off) 201 
BITON (set bit on) 200 
TESTB (test bit) 202 
branching operations 
GOTO (goto) 204 
TAG (tag) 204 
compare and testing operations 
COMP (compare) 197 
TESTZ (test zone) 199 
debug operation 
DEBUG (debug) 234 
lookup operation 
LOKUP (lookup) 206 
move operations 
MOVE (move) 190 
MOVEA (move array) 194 
MOVEL (move left) 192 
move zone operations 
MHHZO (move high to high zone) 197 
MHLZO (move high to low zone) 197 
MLHZO (move low to high zone) 197 
MLLZO (move low to low zone) 197 
programmed control of input and output 217 
CHAIN (chain) 227 
DSPLY (display) 222 
EXCPT (exception) 218 
FORCE (force) 218 
READ (read) 224 
SETLL (set lower limits) 233 
setting indicators 203 
SETOF (set off) 204 
SETON (set on) 204 


Index 457 


operation codes (continucd) 
subroutine operations 212 
BEGSR (begin subroutine) 212 
ENDSR (end subroutine) 212 
EXSR (exccute subroutine) 212 
summary table 327, 328 
operator options for halt recovery (table) 270 
option (input sheet col 18) 122 
options, listing (control card col 11) 12 
OR relationship 
calculation sheet 169, 172 
example 172 
input sheet 
example 144 
fields in OR relationship 142 
record identification codes 136 
output sheet 237 
stacker selection 137, 239 
output 
detail 4, 238, 324 
exception 218, 238 
heading 238 
table and array 104 
total 4, 238, 324 
output fields 
fieldname entry 247 
repeating (*PLACE) 247 
output file 
file type (file description entry) 26 
table or array 29, 86, 104 
output indicators (output sheet entry) 241 
output specifications 237 
AND or OR lines 243 
overflow 
area 50 
automatic 50 
fetched 52,239 
general considerations 54 
line 50,117 
default value 116 
printing (with EXCPT operation) 54 
spacing and skipping 240 
steps done after overflow 117 
use 50 
overflow indicator 
(see also overflow) 
assigning on file description sheet 50 
calculation sheet use 172, 182 
output sheet use 244 
summary table 328, 329 
when turned on 117 
with record identifying indicator 244 
overlay 
changing the size of an overlay 433 
compiler process 430 
core saving technique 431 
definition 430 
how to find an overlay 433 
main storage area 433 
overlay contents 433 
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packed decimal format 139 
(see also packed or binary fields or packed decimal 
format) 
packed ficlds 139 
(see also packed or binary fields or packed decimal 
format) 
packed or binary ficlds 
extension sheet entry 92 
input sheet entry 138 
output sheet entry 259 
restrictions with * in col 40 (output), *PLACE, and 
*PRINT 259 
page numbering 143,247 
PAGE, PAGE1, PAGE2 247 
example 252 
performance improvement techniques 437 
positioning printer forms 19, 20 
pre-execution time tables and arrays 
definition 94 
loading 98 
primary file 
(see also matching fields) 
file description entry (file designation) 28 
printable characters 16 
printer 
block length 31 
device names 57 
dual carriage feature 60 
file description chart 79 
printer/keyboard (CONSOLE) 
additional I/O area 47 
block length (chart) 32 
device name 57 
display files 222 
DSPLY operation code 222 
file description chart 78 
limits processing 33 
overflow indicator 50 
READ operation code 224 
space/skip 239 
printing on card (MFCM, MFCU) 257 
processing methods 
consecutive 33 
direct file load 228 
multifile (sec multifile processing) 
random by ADDROUT file 33 
example 36 
random by key 35,227 
examples 42, 43 
random by relative record number 35, 227 
example 40, 41 
sequential by key 33 
sequential within limits 33 
example 38, 39 
program 
compilation 1,2 
cycle 322, 323 
identification 9 
indicators (summary table) 328, 329 
interruption (see inquiry) 
name 9 
object 1,2,12 
routines (model 15) 442 
sample 274 
source 1 


program logic 
detailed 321 
general 4 
programmed control of input and output 217 
programming tips 430 — 
punched card code 137 
punching on cards 247 


RA file (see record address file) 
random processing 
by ADDROUT file 33 
by CHAIN operation code 227 
by key 33 
examples 42, 43 
by relative record number 33 
example 40, 41 
READ (ead) operation code 224 
(see also demand files) 
READOi 57, 82 
READ42 57 
record addition 66, 238 
record address file 
(see also ADDROUT file) 
definition 28 
extension code (file description col 39) 55 
extension sheet entries 86, 93 
format of records 34 
located on disk 76 
processing sequential within limits 34 
record address type (file description col 31) 46 
record address type 46 
record identification codes 135 
(see also character structure) 
record identifying indicator 
AND and OR lines 123 
assigning oninput sheet 122 
control level indicator used as 123 
use with overflow indicator 244 
used for field record relations 160 
record key 46 
record length. 33 
record relation (see field record relation) 
record selection (input) 154 
record type 
identification 135 
sequence checking 120 
reducing the overlay size 433 
related tables and arrays 88, 94 
relative record number 
(see also CHAIN operation code) 
binary 28, 34 
example 40,41 
random processing by 33 
remainder (see MVR operation code) 
repeating 
operations (see GOTO and TAG) 
output fields (*PLACE) 247 
output lines (exception output) 23 
replaceable characters 260 
REQUEST key (see inquiry) 


result field 179 
resulting indicators 
calculation sheet entry 182 
with CHAIN 227 
with LOKUP 206 
with READ 224 
RLABL operation 407 
roll-in and roll-out routine (inquiry) 19 
root segment 433 
rounding numbers in result field (half adjust) 180 
RPG II 
definition and general description 1 
diagnostic messages 336 
halts and recovery options 270 
inquiry support 19 
listing options - 12 
object program logic 321 
operation control language 270, 273 
running a program 253 
sample program listings 438 
sample programs 274 
source deck, card arrangement 7 
specification sheets 6 
system configuration 6 
telecommunications feature 56 
valid names 2 


sample program listings 
model 10 438, 439 
model 15 440, 441 
sample programs 274 
search words (see LOKUP) 
secondary file 
(see also matching files) 
file designation entry 28 
selecting a stacker 
input sheet entry 137 
output sheet entry 239 
selection of records oninput 152° 
(see also multifile processings) 
sequence 
collating (see collating sequence) 
error 30,119 
extension sheet entry 92 
file description sheet entry 30 
input sheet entry 119 
record type 119 
sequence checking 
file description sheet entry 30 
input records 119 
using matching fields (M1-M9) 152 
sequence group 121 
sequential file 47,49 
addition to 66 
file description chart 72 
processing methods 33 
sequential processing by key 34 
sequential processing within limits 34 
SETLL (set lower limits) operation code 34, 233 
SETOF (set off) operation code 204 
SETON (set on) operation code 204 
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setting indicators 203 
shared I/O 

additional I/O area 47 

control card specifications 24 
short table or array 90, 94 
sign 

binary format 138 

numeric field 247 

packed decimal format 138 

unpacked decimal format 138 
skip (output sheet entry) 240 
skipping operations (see branching operations) 
source deck, card arrangement 8 
source library 270 
source program 1 

compilation 1,2 
space (output sheet entry) 240 
SPECIAL (device entry) 57,410 

general description 60 
special characters (definition) 2 
special device support 407 

dual program feature restriction 410 
special open/close 430 
special words 256 

general description 247 

input sheet use 143 

output sheet use 247 
specifications 

calculations 167 

control card 11 

extension 85 

summary chart 93 
file description 25 
summary chart 72 

general description and ordering of 6 

input 118 

line counter 116 

output format 237 

telecommunications 420 
split control fields 146 

example 162 

used with field record relation 162, 163 
spread cards 131 

example 134 

processing 133 

specifications 133 

with primary and secondary files 133 
SQRT (square root) operation code 188 

negative square root halt 271 
SR (see subroutines) 
SRyzzz 64,417 
stacker select 

input sheet entry 137 

output sheet entry 239 
standard form length (printer) 116 
storage allocation 

(see also file allocation) 

core size to execute 13 
structure of characters 137 

(see also collating sequence) 
SUB (subtract) operation code 187 
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subroutines in calculations 212 
control level entry (SR) 169 
GOTO and TAG with subroutines 216 
operation codes 212 
use of one subroutine in different programs 216 
subroutines, assembler language 407 
SUBRxx 64, 417 
SUBR89 (PF key subroutine) 447 
SUBR95 (in-line inquiry subroutine) 447 
summary of RPGII specifications 412 
summary tables 
editcodes 255, 256 
indicators 328 
operation codes 327, 328 
supervisor (considerations in core size to execute) . 13 
suppression of leading zero 21 
synonymrecord 228 
system configuration 6 


tables 
(see also arrays; LOKUP operation) 
adding entries to ashort table 104 
building (see loading) 
compilation time 88, 94, 99 
creating input records 100 
decimal positions 92 
defining tables (extension sheet) 87 
definitions of terms 94 
differences between tables and arrays 94 
entry 90 
example 105 
extension specifications 85 
summary chart 93 
file designation entry 28 
full table (definition) 94 
general discussion 94 
input record 96 
length of entry 90 
loading 
compilation time 88, 99 
consideration 88 
placement in source deck 99 
pre-execution time 88, 99 
LOKUP (see LOKUP operation code) 
modifying the contents 104 
adding entries to a short table 104 
naming 
extension sheet 87 
file description sheet 28 
rules for 87 
_ number of entries per table 90 
number of tables per device 86 
output 
formatting (see EXCPT operation) 
via extension sheet 86, 104 
via output sheet 104 
packed or binary format 92 
pre-execution time 88, 99 
recording table data (rules) 96 


tables (continued) 
referencing tables in calculations (see LOKUP operation) 
related tables a 
alternating format 92, 94, 96 
definition 88, 92 
example 95 
length of entry specifications 90 
searching tables (see LOKUP operation) 
sequence (extension sheet entry) 92 
sequence of definition 98 
short tables (definition) 94 
summary chart 93 
TAG (tag) operation code 204 
use with subroutine 216 
tape (see magnetic tape) 
tape continuation record 63 
tape file description specification 80 
tape records, block length 31, 32 
tape rewind (column 70) 71 
telecommunications specifications summary 420 
TESTB (test bit) operation code 202 
use of resulting indicators 202 
testing fields (see field indicators) 
testing results of calculations (see resulting indicators) 
TESTZ (test zone) operation code 199 
time of day 235 
to filename (extension sheet) 86 
total output records 238 
control level indicator with 244 
total printing (control level on input) 244 
translation table and alternate collating sequence coding 
sheet 17 
type H/D/T/E 238 


UDATE special word 251 
inverted print format 15 
UDAY special word 251 
UMONTH special word 251 
United Kingdom format 15, 251 
unordered load (indexed file) 66, 69 
unpacked decimal format 138 
unprintable character option 22 
update file (file type entry) 26 
output indicator restriction 243 
‘using RPGII 2 
’ UYEAR 251 
U1-U8 indicators (see external indicators) 


valid indicators (summary table) 330 
valid RPG II name (definition) 2 
volume ofa file 69 


World Trade format 15, 251 


XFOOT (crossfoot) operation code 189 


Z (zone) (see record identification codes) 
Z-ADD (zero and add) operation code 187 
Z-SUB (zero and subtract) operation code 187 
zero balance 
effect of editcode 255 
effect of inverted print 15 
zone suppression 
effect of inverted print 15 
examples 264 
relation to edit word oredit code 22 
stop character 260 
zeroing fields 
blank after 256 
subtract operation 187 
zone 
(see also character structure) 
character grouping by equal zone 331 
move zone operations 197 
test zone operations 199 
zone punch 137 


01-99 indicators 
calculation sheet uses 172, 182 
effect of SETON and SETOF 183 
general description of use 183 
input sheet uses 
field indicators 165 
field record relations 160 
record identifying indicator 122 
output sheet use 241 
1P (first page) indicator 
as outputindicator 241, 244 
example 242 
restriction with output fields 242 
1P forms position 19 
1442 card read punch device name (READ42) 57,416 
2501 card reader (READO1) 32,57, 58, 82, 416 
2560 multifunction card machine (MFCM) 32,57, 58, 82, 416 
3340 disk storage (DISK40) 32,57, 58,416 
3741 data station or programmable work station (DISKET) 
32, 57, 58, 84, 416 
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